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PREFACE 


This  study  was  conducted  during  the  period  October  1977  to 
December  1978  by  personnel  of  the  Geotechnical  Laboratory  (GL),  U.  S. 

Army  Engineer  Waterways  Experiment  Station  (WES),  for  the  U.  S.  Depart¬ 
ment  of  Transportation,  Federal  Aviation  Administration,  as  a  part  of 

/ 

Inter-Agency  Agreement  No.  DOT  FA73WAI-377,  "New  Pavement  Design  V 

Methodology. " 

The  study  was  conducted  under  the  general  supervision  of 
Messrs.  J.  P.  Sale  and  R.  G.  Ahlvin,  Chief  and  Assistant  Chief,  respec¬ 
tively,  of  GL;  R.  L.  Hutchinson  and  H.  H.  Ulery,  Jr.,  Chief  and  Princi¬ 
pal  Technical  Advisor,  respectively,  of  the  Pavement  Systems  Division; 
and  under  the  direct  supervision  of  A.  H.  Joseph,  Chief  of  the  Engineer¬ 
ing  Investigation  Testing  and  Validation  Group;  and  J.  W.  Hall,  Jr. , 

Chief  of  the  Prototype  Testing  and  Evaluation  Unit.  The  programming  for 
this  study  was  accomplished  in  part  by  Mr.  Ricky  Austin,  Research  and 
Analysis  Group.  Significant  contributions  were  made  by  Messrs.  J.  L. 
Green  and  A.  J.  Bush  III  of  the  Prototype  Testing  and  Evaluation  Unit, 
and  by  Dr.  W.  R.  Barker  of  the  Research  and  Analysis  Group.  The  report 
was  written  by  Dr.  R.  A.  Weiss. 

COL  John  L.  Cannon,  CE,  and  COL  Nelson  P.  Conover,  CE,  were 
Directors  of  the  WES  during  the  conduct  of  this  study  and  the  preparation 
of  this  report.  The  Technical  Director  was  Mr.  F.  R.  Brown. 
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INTRODUCTION 


BACKGROUND 

The  increasing  expense  of  pavement  construction  and  rehabilitation 
makes  it  essential  to  have  a  fast  and  reliable  method  of  accurately 
predicting  the  allowable  load-carrying  capacity  and  the  required  overlay 
thickness  for  pavement  upgrading.  Vibratory  nondestructive  testing  can 
play  an  important  part  for  the  rapid  evaluation  of  airport  pavements.'''  ^ 
The  U.  S.  Army  Engineer  Waterways  Experiment  Station  (WES)  was  requested 
to  develop  a  pavement  evaluation  method  based  on  vibratory  nondestructive 
testing  combined  with  layered  elastic  theory.  This  study  combines  the 
layered  elastic  theory  for  calculating  stress  and  strain  in  a  pavement 
with  the  nonlinear  theory  of  dynamic  pavement  response  that  describes 
the  vibratory  nondestructive  test  data  to  produce  a  working  method, 
including  computer  programs,  for  evaluating  pavements  and  designing 
overlays . 

The  combined  method  of  layered  elasticity  theory  and  vibratory 
nondestructive  testing  is  compared  with  the  conventional  method  that 
uses  the  California  Bearing  Ratio  (CBR)  for  evaluating  asphaltic  con¬ 
crete  (AC)  pavements  and  with  the  Westergaard  method  for  evaluating 
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Portland  cement  concrete  (PCC)  pavements.  It  is  also  compared  with 
the  pavement  evaluation  method  that  uses  a  correlation  between  the 
strength  of  a  pavement  and  the  dynamic  stiffness  modulus  (DSM)  that  is 
obtained  from  vibratory  nondestructive  testing."- 

The  CBR  and  Westergaard  methods  require  destructive  tests  to 
measure  the  CBR  and  the  coefficient  of  subgrade  reaction,  respectively. 

To  circumvent  the  destructive  tests,  a  vibratory  nondestructive  test 
method,  which  directly  correlates  the  allowable  load-carrying  capacity 
and  the  required  overlay  thickness  to  a  mechanical  impedance  that  is 
measured  at  the  pavement  surface  (the  DSM),  was  developed  at  the  WES 
for  evaluating  AC  and  PCC  pavements. 

The  DSM  is  obtained  from  vibratory  nondestructive  test  data  that 
are  obtained  with  the  WES  electrohydraulic  vibrator,  which  can 
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generate  dynamic  loads  up  to  15  kips  with  a  constant  l6-kip  static 
load  (WES  l6-kip  vibrator)  and  a  constant  frequency  of  15  Hz.^  These 
data  consist  of  dynamic  xoad-de fleet ion  curves  that  are  measured  at  the 
pavement  surface.  The  dynamic  load-deflection  curves  are  nonlinear  in 
general,  and  the  DSM  is  the  slope  of  the  dynamic  load-deflection  curve 
for  a  dynamic  load  of  about  10-1 U  kips.  The  measured  DSM  is  corrected 
to  a  common  pavement  temperature  of  TO°F,  and  the  corrected  value  of  the 

DSM  is  correlated  to  the  allowable  load-carrying  capacity  and  the  re- 
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quired  overlay  thickness  of  a  pavement.  *  The  DSM  method  is  empirical 
and  does  not  take  into  consideration  the  layered  elastic  structure  of 
the  pavement  or  the  interface  conditions  between  the  pavement  layers. 

In  order  to  improve  on  the  method  of  directly  correlating  pave¬ 
ment  performance  with  vibratory  nondestructive  test  data,  an  attempt 
was  made  to  combine  the  layered  elastic  theory  of  pavements  with  the 
pavement  impedance  values  measured  by  vibratory  nondestructive  tests. 

In  this  way,  the  pavement  structure  could  be  considered.  The  layered 
elastic  model  of  pavements  required  the  Young's  modulus  and  the  Poisson's 
ratio  of  the  subgrade  and  pavement  layers  to  be  known.  The  elastic 
moduli  of  the  pavement  layers  are  estimated  by  various  means,  and  only 
the  subgrade  Young's  modulus  is  obtained  by  vibratory  nondestructive 
tests . 

The  pavement  evaluation  method  presented  herein  consists  of 
determining  the  subgrade  Young's  modulus  from  the  dynamic  response  of  a 
pavement  measured  by  vibratory  nondestructive  tests  and  using  the 
determined  value  of  the  subgrade  Young's  modulus  in  the  layered  elastic 
theory  to  calculate  the  allowable  load-carrying  capacity  and  the  re¬ 
quired  overlay  thickness  of  a  pavement.  Two  computer  programs,  SUBE 
and  PAVEVAL,  are  used  for  the  necessary  computations  and  to  obtain  the 
results . 

The  subgrade  Young's  modulus  is  determined  from  dynamic  load- 
deflection  curves  that  are  measured  at  the  pavement  surface.  In 
general,  these  dynamic  load-deflection  curves  are  nonlinear,  and  a 
nonlinear  dynamic  theory  is  required  to  extract  the  value  of  the  sub¬ 
grade  Young's  modulus  from  these  measured  curves.  The  nonlinear 
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dynamic  theory  is  used  to  remove  the  extraneous  effects  of  the  static 

and  dynamic  loads  developed  by  the  vibrator  on  the  predicted  values  of 
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the  subgrade  Young's  modulus.  ’  The  value  of  the  subgrade  Young's 
modulus  used  for  calculating  the  allowable  load-carrying  capacity  and 
the  required  overlay  thickness  of  a  pavement  should  reflect  only  the 
stress  conditions  in  the  sugrade  due  to  the  aircraft  loading  and  the 
natural  overburden  pressure.  The  computer  program  SUBE  was  developed 
from  the  nonlinear  theory  of  pavement  response  to  dynamic  loads  and  is 
used  to  determine  the  subgrade  Young's  modulus  from  the  measured  dynamic 
load-deflection  curves. 

Within  the  context  of  the  layered  elastic  theory,  pavements  are 
represented  by  a  stack  of  elastic  layers,  the  subgrade  being  of  infinite 
extent.  This  layered  elastic  theoretical  model  of  a  pavement  structure 
is  used  to  calculate  the  elastic  stress  and  strain  at  any  point  in  the 
pavement  or  the  subgrade.  Each  pavement  layer  is  characterized  by  a 
Poisson's  ratio  (v),  a  Young's  modulus  (E),  and  a  layer  thickness  (h). 
The  Shell  BISAR  computer  program  is  based  on  the  layered  elastic  theory 
and  relates  the  stress  and  the  strain  in  each  pavement  layer  to  the 
static  load  applied  to  the  surface  of  a  pavement.  The  computer  program 
PAVEVAL  that  is  used  for  pavement  evaluation  and  overlay  design  is  a 
modification  of  the  BISAR  program.  Figure  1  represents  a  typical  pave¬ 
ment  structure  subjected  to  a  loading  according  to  the  layered  elastic 
theory  approach. 

1  LOADING 


WEARING  SURFACE 

BASE 
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7  7  7  7~ 
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"  /  '  7 
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Figure  1.  Typical  pavement  structure  with  loading 
according  to  the  layered  elastic  theory 
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The  computer  programs  SUBE  and  PAVEVAL  were  developed  on  the 
IBM  360/65  computer  and  are  designed  for  practical  use  by  pavement 
engineers . 

OBJECTIVES 

A  pavement  evaluation  procedure  is  required  that  will  use 
vibratory  nondestructive  testing  and  analysis  of  data  to  obtain  the 
value  of  the  subgrade  modulus  for  input  into  the  layered  elastic  theory 
for  calculating  stresses  and  strains  in  a  pavement.  The  basic  objectives 
of  this  study  are: 

a.  To  further  develop  and  evaluate  a  theoretical  procedure  for 
determining  the  subgrade  Young's  modulus  from  vibratory 
nondestructive  test  data. 

b.  To  determine  the  allowable  load-carrying  capacity  for  AC  and 
PCC  pavements  for  single-  and  multiple-wheel  loadings  using 
the  subgrade  modulus  in  the  layered  elastic  theory. 

c_.  To  determine  the  overlay  thickness  required  to  upgrade  AC 
and  PCC  pavements  for  single-  and  multiple-wheel  loadings 
using  elastic  pavement  parameters  calculated  from  vibratory 
nondestructive  testing  results  in  the  layered  elastic  theory. 

SCOPE 


To  achieve  these  objectives,  theoretical  and  experimental  work 
was  done. 

THEORETICAL  STUDIES 

The  theoretical  studies  included: 

a, .  A  logical  method  of  selecting  the  values  of  the  elastic 

moduli  of  each  pavement  layer. 

b.  The  development  of  the  nonlinear  dynamic  computer  program 
SUBE  to  predict  the  values  of  the  subgrade  Young's  modulus 
from  measured  vibratory  nondestructive  test  data. 

c_.  The  determination  of  the  limiting  vertical  strain  in  the 
subgrade  and  the  limiting  tensile  strain  in  the  AC  layer 
of  AC  pavements,  and  a  limiting  tensile  stress  criterion 
in  PCC  pavements  as  design  criteria  to  be  used  with  the 
layered  elastic  pavement  model. 

d.  The  development  of  the  PAVEVAL  layered  elastic  computer 
program  to  calculate  the  allowable  load-carrying  capacity 
and  the  required  overlay  thickness  for  AC  and  PCC  pavements 
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with  single-  and  multiple-wheel  loadings.  A  comparison 
with  conventional  CBR  and  Westergaard  methods  is  made. 


EXPERIMENTAL  STUDIES 

,  Dynamic  load-deflection  curves  and  CBR  values  were  measured  in 
the  field  for  PCC  and  AC  pavements. 
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MATERIAL  PARAMETERS  AND  FAILURE  CRITERIA  REQUIRED 
FOR  PAVEMENT  EVALUATION  AND  OVERLAY  DESIGN 


GENERAL  CONSIDERATIONS 

Repeated  aircraft  loadings  on  a  pavement  will  eventually  lead  to 

a  failure  of  the  pavement.  The  ultimate  purpose  of  the  nondestructive 

testing  of  a  pavement  is  to  estimate  the  allowable  load-carrying  capacity 

of  a  pavement  for  a  specified  number  of  yearly  load  repetitions  or  to 

determine  the  overlay  thickness  required  to  upgrade  a  pavement  when  the 

operating  aircraft  weight  and  yearly  number  of  load  repetitions  are 

specified.1  The  estimation  of  the  allowable  load-carrying  capacity  and 

the  required  overlay  thickness  requires  a  knowledge  of  the  failure 

processes  that  occur  in  AC  and  PCC  pavements.  Vibratory  nondestructive 

testing  should  supply  some  of  the  pavement  parameters  that  enter  into 
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the  physical  description  of  the  failure  processes. 

Pavements  fail  for  a  variety  of  reasons.  Many  pavements  fail 

because  the  pavement  does  not  properly  protect  the  subgrade  from  large 

stresses  and  strains  that  can  cause  excessive  plastic  and  elastic 

deformation  of  the  soil  in  the  subgrade.  Experience  has  shown  that 

the  condition  of  failure  in  AC  pavements  may  be  described  by  a  limiting 

elastic  (resilient)  vertical  strain  in  the  top  of  the  subgrade  and  a 

limiting  tensile  strain  at  the  bottom  of  the  AC  pavement  layer,  while 

the  condition  of  failure  in  PCC  pavements  can  be  described  by  a  limiting 
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tensile  stress  at  the  bottom  of  the  PCC  layer.  ’  These  limiting  values 
of  stress  and  strain  are  related  to  the  allowable  load-carrying  capacity 
and  the  required  overlay  thickness  of  a  pavement  through  the  structure 
of  the  pavement,  i.e.  ,  through  the  thickness  and  the  material  type  of 
each  layer  of  the  pavement  and  the  subgrade. 

The  materials  in  the  pavement  layers  must  be  described  by 
material  parameters,  which  determine  the  stress-strain  characteristics. 
The  proper  mechanical  parameters  chosen  to  describe  the  pavement  mate¬ 
rial  will  depend  on  the  type  of  problem  under  consideration.  For 
instance,  if  the  time  history  of  the  plastic  flow  of  the  pavement 


material  is  of  interest,  then  some  plastic  flow  parameters  relating 
permanent  strain  to  the  operating  stress  must  he  introduced.  If  the 
resilient  properties  or  the  incipient  plastic  flow  characteristics  of 
pavement  materials  are  of  interest,  the  Young's  modulus  and  the  Poisson's 
ratio  of  the  subgrade  and  pavement  layers  are  sufficient  for  a  complete 
description. 

FAILURE  IN  AC  PAVEMENTS 

The  failure  of  AC  pavements  generally  occurs  by  two  processes: 

(a)  cracking  of  the  bituminous  wearing  surface  and  (b)  rutting  of  the 
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wearing  surface  along  the  wheel  paths.  The  fatigue  cracking  along  the 

wearing  surface  due  to  repeated  flexural  loadings  is  determined  by 
the  magnitude  of  the  tensile  strain  at  the  bottom  of  the  wearing  sur¬ 
face,  while  the  rutting  of  the  wearing  surface  may  be  governed  in  part 
by  the  vertical  compressive  strain  at  the  top  of  the  subgrade  and  by  the 
flow  of  the  AC  material.  Therefore,  in  this  study,  the  allowable  load¬ 
carrying  capacity  and  the  required  overlay  thickness  for  AC  pavements 
will  be  determined  mainly  by  a  limiting  vertical  compressive  strain  at 
the  top  of  the  subgrade.  However,  this  may  lead  to  erroneous  values 
because  of  the  gross  oversimplifications  involved. 

For  a  given  load  at  the  pavement  surface,  the  values  of  the 
stress  and  the  strain  in  the  pavement  and  the  subgrade  depend  on  the 
Young's  modulus  and  the  Poisson's  ratio  of  the  subgrade  and  each  pave¬ 
ment  layer.  Therefore,  if  the  elastic  moduli  of  the  pavement  layers 
are  known,  it  is  the  Young's  modulus  of  the  subgrade  that  is  the  unknown 
parameter  determining  stress  and  strain  in  the  pavement  and  the  subgrade. 
This  parameter  must  be  obtained  by  vibratory  nondestructive  testing. 

FAILURE  IN  PCC  PAVEMENTS 

It  is  assumed  herein  that  PCC  pavements  fail  because  of  fatigue 
cracking  associated  with  the  repeated  flexural  stress  in  the  PCC  layer. 
Actually,  many  failures  occur  at  joints,  but  this  condition  is  not 
considered  in  this  study.  The  fatigue  cracking  of  the  wearing  surface 
of  PCC  pavements  is  governed  by  the  tensile  stress  at  the  bottom  of  the 
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wearing  surface,  said  the  value  of  this  stress,  for  a  given  operating 

load  at  the  pavement  surface,  is  determined  by  the  elastic  moduli  of  the 

Q 

subgrade  and  pavement  layers.  Assuming  that  the  elastic  moduli  of  the 
pavement  layers  are  known,  it  is  the  subgrade  Young's  modulus  that  is 
the  unknown  parameter  determining  the  operating  value  of  the  tensile 
stress  at  the  bottom  of  the  PCC  layer.  This  elastic  parameter  must  be 
supplied  by  vibratory  nondestructive  testing. 

PAVEMENT  EVALUATION  AND 
OVERLAY  DESIGN 

The  computer  program  PAVEVAL  was  written  to  incorporate  the 
material  parameters  and  the  limiting  stress  and  strain  criteria  into 
a  procedure  for  calculating  the  allowable  load-carrying  capacity  and 
the  overlay  thickness  required  for  pavement  upgrading.  PAVEVAL,  used 
in  conjunction  with  the  computer  program  SUBE  that  predicts  the  value 
of  the  subgrade  Young's  modulus,  was  developed  to  be  a  practical  tool 
for  the  pavement  engineer  to  use  for  evaluation  and  overlay  design 
purposes.  Detailed  descriptions  and  listings  of  the  computer  programs 
SUBE  and  PAVEVAL  are  given  in  Appendixes  A  and  B,  respectively. 

Figure  2  gives  a  flow  diagram  of  the  general  procedure  used  for  pave¬ 
ment  evaluation  and  overlay  design. 


Figure  2.  Pavement  evaluation  and  overlay  design  by  the 
combined  methods  of  layered  elastic  theory  and  vibratory 
nondestructive  testing 
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SELECTION  OF  THE  PAVEMENT  AND  AIRCRAFT  PARAMETERS 
FOR  THE  COMPUTER  PROGRAMS  SUBE  AND  PAVEVAL 

GENERAL  CONSIDERATIONS 

The  pavement  parameters  required  by  the  computer  programs  SUBE 
and  PAVEVAL  are  the  Young's  modulus,  the  Poisson's  ratio,  the  thickness 
of  the  pavement  layers  and  the  subgrade,  and  the  flexural  strength  for 
the  PCC  layers.  Some  progress  has  been  made  toward  determining  all  of 
the  elastic  moduli  of  the  pavement  layers  by  vibratory  nondestructive 
testing,  but  the  results  are  not  yet  reliable.  *  In  this  study, 
only  the  subgrade  Young's  modulus  is  obtained  by  vibratory  nondestruc¬ 
tive  test  methods. 

Furthermore,  the  subgrade  is  assumed  to  be  infinitely  thick. 

Previous  work  on  the  design  for  PCC  pavements  incorporates  a  stiff 

12 

layer  20  ft  below  the  pavement  surface.  The  present  study  found  it 
unnecessary  to  incorporate  a  stiff  layer  at  some  arbitrary  depth,  so 
the  computer  programs  SUBE  and  PAVEVAL  assume  a  homogeneous  subgrade. 

The  computer  program  PAVEVAL  requires  aircraft  characteristics 
data  as  well  as  pavement  parameters  to  calculate  the  allowable  load¬ 
carrying  capacity  and  the  required  overlay  thickness  of  a  pavement. 
These  data  include  the  load  on  one  main  gear  wheel,  the  total  number  of 
main  gear  wheels,  the  tire  contact  area,  and  the  wheel  spacings. 

PAVEMENT  LAYER  THICKNESSES 

The  pavement  layer  thicknesses  are  obtained  from  construction 
drawings  or  from  measurements  of  core  samples  and  thicknesses  in  core 
holes  in  the  existing  pavement  if  no  construction  records  are  available. 

POISSON'S  RATIO 

The  Poisson's  ratio  of  the  wearing  surface  and  base  and  subbase 
courses  was  chosen  according  to  the  rules  v  =  0.2  for  PCC  pavements, 
v  =  0.3  for  AC  pavements  and  AC  base  materials,  and  v  =  0.35  for  all 
other  base  and  subbase  materials.  The  Poisson's  ratio  for  all  subgrade 
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soils  is  taken  to  be  v  =  0.35  •  Different  choices  for  these  variables 
can  be  made  according  to  the  type  of  materials  present. 


YOUNG'S  MODULUS 

The  Young's  modulus  of  the  PCC  wearing  surface  of  the  PCC  pave¬ 
ment  is  taken  to  be  k.O  *  10^  psi.  The  temperature-dependent  Young’s 
modulus  of  AC  pavements  and  AC  base  materials  is  obtained  from  Figure  3, 
corresponding  to  the  pavement  surface  temperature  at  the  time  of  the 
vibratory  nondestructive  testing.  The  temperature-dependent  Young's 
modulus  value  is  entered  into  the  computer  program  CUBE  to  determine  the 
subgrade  Young's  modulus.  In  this  study,  a  value  of  E  =  1*50,000  psi 
for  AC  pavements  and  AC  base  materials  (corresponding  to  a  yearly 
average  temperature  of  70°F)  is  entered  into  the  computer  program  PAVEVAL 
that  is  to  be  compared  with  the  conventional  methods.  However,  in 
actual  practice,  a  value  of  the  AC  Young's  modulus  is  selected  from  the 
curve  in  Figure  3,  representing  the  appropriate  seasonal  temperature. 

The  values  of  the  Young's  modulus  of  granular  base  and  subbase 

materials  can  be  estimated  from  the  structure  and  composition  of  these 

materials.  For  instance,  the  laboratory  resilient  modulus  test  gives 

at  least  approximate  values  of  the  Young's  modulus  and  the  Poisson's 

13-15 

ratio  of  these  materials.  A  reasonable  estimate  of  the  values  of 

Young's  modulus  of  base  and  subbase  materials  can  be  obtained  from 
Table  1.  The  subgrade  Young's  modulus  that  is  entered  into  the  computer 
program  PAVEVAL  is  the  Young's  modulus  value  predicted  by  the  computer 
program  SUBE. 

If  the  base  and  subbase  materials  are  completely  unknown,  it  is 
possible  to  use  a  trial-and-error  procedure  to  obtain  the  values  for 
the  Young's  moduli  of  these  materials  and  the  value  of  the  subgrade 
Young’s  modulus  by  using  the  nonlinear  computer  program  SUBE  and  the 
curves  in  Figure  4. 

The  procedure  for  estimating  the  values  of  the  Young's  moduli  of 
the  base  and  subbase  courses  is  as  follows: 

a.  Select  a  trial  value  of  the  subgrade  Young's  modulus. 

b^.  Use  Figure  !*  to  obtain  the  Young's  moduli  of  the  base  and 
subbase  courses. 
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MODULUS  OF  LAYER  n,  I03  PSI 


I  2  3  4  6  8  10  20  30  40  60  80 100 

MODULUS  OF  LAYER  n+ 1,  I03  PSI 

Figure  U.  Relationship  between  the  Young's  modulus  of  layer  n  and  the 
Young's  modulus  of  layer  n  +  1  for  various  thicknesses  of  layer  n 

c.  Place  these  trial  values  of  the  Young's  moduli  of  the  base 
and  subbase  courses  (along  with  the  measured  DSM)  into  the 
computer  program  SUBE  and  get,  a  new  value  of  the  subgrade 
Young's  modulus. 

d.  Use  the  new  value  of  subgrade  Young's  modulus  to  get  new 

~  values  of  the  Young's  moduli  of  the  base  and  subbase  courses 
from  Figure  h. 

Repeat  the  procedure  to  the  accuracy  desired. 

FLEXURAL  STRENGTH 

The  flexural  strengths  of  the  PCC  material  of  wearing  surfaces 
can  be  measured  in  the  laboratory  on  specimens  cored  from  the  PCC 


pavement.  Splitting  tensile  tests  are  conducted,  and  the  results  are 
converted  to  flexural  strengths.  The  approximate  range  of  variation 
of  the  flexural  strength  of  the  PCC  material  found  in  the  wearing  sur¬ 
face  of  PCC  pavements  is  TOO  <  R  <  1020  psi."'" 

AIRCRAFT  CHARACTERISTICS 

Pavement  evaluation  and  overlay  design  procedures  must  include 
characteristics  of  the  types  of  aircraft  that  operate  at  an  airport. 
Basic  aircraft  data  must  be  entered  into  the  PAVEVAL  computer  program 
in  order  to  calculate  the  allowable  load-carrying  capacity  and  the  re¬ 
quired  overlay  thickness  for  a  pavement.  The  required  aircraft  data 
include  the  load  on  one  wheel,  the  tire  contact  area,  the  total  number 
of  main  gear  wheels,  and  the  transverse  and  longitudinal  wheel  spacings. 
Table  2  gives  the  required  data  for  several  aircraft  in  common  use. 

The  load  on  one  wheel  used  in  Table  2  takes  into  consideration 
the  assumption  that  5  percent  of  the  gross  aircraft  weight  is  supported 
by  the  nose  wheel.  The  load  on  one  wheel  is  therefore  given  by:  gross 
weight  x  0.95/number  of  main  gear  wheels.  The  operating  load  on  a 
single  wheel  is  used  as  the  input  load  in  the  computer  program  PAVEVAL 
to  calculate  the  overlay  thickness  for  PCC  and  AC  pavements.  PAVEVAL 
automatically  does  the  multiple-wheel  calculation  for  the  wheel  con¬ 
figuration  specified  by  the  user. 
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Table  2 


Aircraft  Data 


Aircraft  Gear 
Configuration 
or  Model 
Designation 

Typical 

Gross 

Weight 

kips 

Tire 
Contact 
Area 
sq  in. 

Total 

No .  of 
Main  Gear 
Wheels 

Load  on 
One  Wheel 
kips 

Transverse 

Wheel 

Spacing 

in. 

Longitud inal 
Wheel 
Spac ing 
in. 

Single-wheel 

30 

190 

2 

14.25 

Single-wheel 

45 

237 

2 

21.38 

— 

— 

Single-wheel 

60 

271 

2 

28.50 

— 

— 

Single-wheel 

75 

297 

2 

35.63 

— 

— 

Dual-wheel 

50 

148 

4 

11.88 

— 

— 

Dual-wheel 

75 

162 

4 

17.81 

21 

_ 

Dual-wheel 

100 

170 

4 

23.75 

23 

_ 

Dual-wheel 

150 

222 

4 

35.63 

26 

— 

Dual-wheel 

200 

237 

4 

47.50 

30 

— 

Dual- tandem 

100 

99 

8 

23.75 

20 

45 

Dual- tandem 

150 

127 

8 

17.81 

20 

45 

Dual-tandem 

200 

148 

8 

23.75 

21 

46 

Dual-tandem 

300 

198 

8 

35.63 

26 

51 

Dual-tandem 

400 

237 

8 

47.50 

30 

55 

Boeing  727 

173 

210 

4 

41.09 

34 

— 

DC-8-63F 

358 

220 

8 

42.51 

32 

55 

Boeing  747 

778 

204 

16 

46.19 

44 

58 

DC-10-10 

433 

294 

8 

51.42 

54 

64 

DC- 10- 30 

558 

331 

10 

53.01 

54 

64 

L-1011 

428 

282 

8 

50.83 

52 

70 

Concorde 

389 

247 

8 

46. 19 

26.72 

65.7 

Boeing  737 

111 

174 

8 

13.18 

30 

_ 

Lockheed  Electra 

113 

182 

4 

26.84 

26 

— 

DC-9 

115 

165 

4 

27.31 

25 

— 

Convair  880 

188 

152 

8 

22.33 

22.5 

45 

Boeing  720 

235 

188 

8 

27.91 

32 

49 

Boeing  707 

336 

218 

8 

39.90 

34 

56 
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LIMITING  STRESS  AND  STRAIN  CONDITIONS 

As  indicated  previously,  the  failure  of  AC  and  PCC  pavements  can 
be  related  to  limiting  strain  and  stress  conditions,  respectively. 
Limiting  stress  and  strain  conditions  are  important  for  pavement  evalua¬ 
tion  because  they  relate  the  strain  in  the  AC  layer  and  the  subgrade  of 
AC  pavements,  and  the  stress  in  the  PCC  layer  of  PCC  pavements,  to  the 
allowable  load-carrying  capacity  and  the  required  overlay  thickness  of 
a  pavement.  Because  the  stress  and  strain  at  any  point  in  a  pavement 
depends  on  the  pavement  structure,  the  limiting  stress  and  strain  concept 
relates  the  allowable  load-carrying  capacity  and  the  required  overlay 
thickness  to  the  pavement  structure,  i.e.,  to  the  thickness  and  the 
elastic  moduli  of  the  pavement  layers. 

AC  PAVEMENTS 

The  soil  of  the  subgrade  will  undergo  excessive  plastic  flow 

under  repetitive  leads  if  the  repeated  vertical  strain  at  the  top  of 

9 

the  subgrade  exceeds  a  limiting  value.  The  limiting  value  of  the 
vertical  strain  at  the  top  of  the  subgrade  depends  on  the  number  of 
strain  repetitions  and  on  the  value  of  the  Young's  modulus  of  the  soil 
in  the  subgrade.  Figure  5  gives  the  limiting  vertical  strain  e  as 

V  ]_» 

a  function  of  the  subgrade  Young's  modulus  for  1,200,  6,000,  and 

9 

25„000  annual  strain  repetitions.'  The  curves  in  Figure  6  are  assumed 
to  be  valid  for  all  types  of  subgrade  soil  and  for  single-  and 
multiple-wheel  loadings. 

Figure  6  gives  the  limiting  vertical  strain  at  the  top  of  the 

subgrade  of  AC  pavements  in  terms  of  the  total  number  of  load  repeti- 

9 

tions  independent  of  the  value  of  the  subgrade  Young's  modulus.  A 
straight-line  representation  of  the  data  in  Figure  6  can  be  written  as 

]og  EyL  =  A  log  N  +  B  (l) 

where 

e  =  limiting  vertical  strain  at  the  top  of  the  subgrade 
V 

N  =  total  number  of  load  repetitions  to  failure 


IT 


A  best- fit  curve  through  all  the  data  in  Figure  6  gives  the  values, 

A  =  -0.162  and  B  =  -2.22  ,  for  the  coefficients. 

Figure  7  gives  the  limiting  value  of  the  tensile  strain  e 

9  RL 

at  the  bottom  of  the  AC  layer.  The  limiting  vertical  strain  in  the 

subgraue  is  found  to  be  the  controlling  condition  in  most  AC  pavements, 

and  for  all  cases  considered  in  this  study,  it  was  found  that  the  limit 

ing  vertical  strain  in  the  subgrade  overshadowed  the  limiting  tensile 

strain  in  the  AC  layer. 


Figure  7-  Limiting  tensile  strain  at  the  bottom 
of  the  AC  wearing  surface 


PCC  PAVEMENTS 


It  is  assumed  that  a  load  applied  to  the  surface  of  a  PCC 
pavement  produces  a  maximum  tensile  stress  at  the  bottom  of  the  PCC 
layer.  Further,  cracking  is  assumed  to  occur  first  at  the  bottom  of 
this  layer.  These  are  poor  assumptions  since  failure  often  occurs  at 


the  joints,  and  the  location  of  the  load  or  of  curling  conditions  is 

not  considered.  This  incipient  cracking  will  probably  be  the  onset  of 

failure  in  a  PCC  pavement;  it  will  begin  in  the  PCC  layer  when  the 

applied  tensile  stress  at  the  bottom  of  this  layer  exceeds  a  limiting 

8  9 

value  of  tensile  stress.  ’  The  limiting  tensile  stress  is  expressed 
in  terms  of  the  number  of  load  (stress)  repetitions  and  in  terms  of 
the  flexural  strength  of  the  PCC  layer  as 

_  _ R _  , 

°RL  A  +  B  log  (COV)  12 

where 

o  =  limiting  value  of  tensile  stress,  psi 
R  =  flexural  strength,  psi 
A  =  0.58901 
B  =  0.35^86 

COV  =  number  of  coverages 

This  expression  is  assumed  to  be  valid  whether  the  stress  in  the  PCC 
layer  is  produced  by  a  single-  or  a  multiple-wheel  loading. 

The  number  of  coverages  is  related  to  the  number  of  load  repeti¬ 
tions  by  a  factor  that  depends  on  the  type  of  aircraft  operating  on  a 
runway.  A  coverage  refers  to  a  load  covering  the  full  width  of  the 
traffic  lane  and  thus  must  be  related  to  the  number  of  repetitions  of 
a  particular  gear  configuration.  The  connection  is  made  through  a 
pass-to-coverage  ratio  FAC,  which  is  given  by  FAC  =  N/COV  where 
N  =  number  of  load  repetitions.  The  limiting  radial  tensile  stress 
given  by  Equation  2  can  be  expressed  in  terms  of  the  number  of  load 
repetitions  if  the  pass-to-coverage  ratio  is  specified.  Each  gear 
configuration  is  associated  with  a  unique  value  of  the  pass-to-coverage 
ratio.  Table  3  gives  values  of  the  pass-to-coverage  ratio  for  various 

-.  4--  16 

gear  configurations. 
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Table  3.  Pass-to-Coverage  Ratios 


Aircraft  Wheel 


Ratio  (FAC 

Single 

5.18 

Dual 

3.48 

Dual-tandem 

3.68 

L-1011 

3.62 

B-7H7 

3.70 

DC-10-10 

3.61* 

DC-10-30 

3.38 

DC-8 

3.11+ 

SUBGRADE  YOUNG'S  MODULUS  DETERMINED  BY  VIBRATORY 
NONDESTRUCTIVE  TESTING  OF  PAVEMENTS 


GENERAL  CONSIDERATIONS 

The  basic  purpose  of  the  vibratory  nondestructive  testing  of 
pavements  is  to  supply  pavement  parameters  for  the  layered  elastic 
theoretical  calculation  of  the  allowable  load-carrying  capacity  and  the 
required  overlay  thickness  of  a  pavement.  The  layered  elastic  model  of 
pavements  requires  the  Young's  modulus,  the  layer  thickness,  and  the 
Poisson's  ratio  of  the  subgrade  and  pavement  layers  to  be  known.  The 
elastic  moduli  of  the  pavement  layers  are  estimated  by  various  means, 
and  only  the  subgrade  Young's  modulus  is  determined  from  vibratory  non¬ 
destructive  test  results.  The  subgrade  Young's  modulus  calculated  by 
means  of  the  computer  program  SUBE  serves  as  an  input  pavement  parameter 
for  the  layered  elastic  theory  computer  program  PAVEVAL  that  is  used 
for  pavement  evaluation  and  overlay  design. 

Pavements  have  been  noted  to  behave  nonlinearly  under  dynamic 
1  3 

loadings.  ’  A  nonlinear  dynamic  layered  elastic  theory  and  the  com¬ 
puter  program  SUBE  have  been  developed  that  determine  the  subgrade 

Young's  modulus  directly  from  the  vibratory  nondestructive  test  data 

3  U 

measured  at  the  pavement  surface.  ’  The  input  pavement  parameters  for 
this  dynamic  elastic  theory  are  the  elastic  modulus  and  the  thickness 
of  each  pavement  layer  and  the  Poisson's  ratio  of  the  subgrade.  The 
input  from  the  vibratory  nondestructive  test  data  is  the  dynamic  load- 
deflection  curve  measured  at  the  surface  of  a  pavement  by  the  WES 
l6-kip  vibrator. 

The  BISAR  computer  program  is  used  for  the  design  of  PCC  and  AC 
9  12 

pavements  ’  and  has  been  modified  for  pavement  evaluation  and  desig¬ 
nated  PAVEVAL. 

VIBRATORY  NONDESTRUCTIVE  TEST  DATA 

The  WES  l6-kip  vibrator  applies  a  static  load  of  1 6  kips  to  the 
pavement  surface  and  a  dynamic  load  up  to  15  kips  at  frequencies 


ranging  from  5  to  100  Hz.  Both  static  and  dynamic  loads  are  applied 
to  the  pavement  surface  through  a  circular  l8-in.-diam  baseplate. 

Four  types  of  vibratory  nondestructive  tests  are  generally 
performed  on  pavements: 

a.  Dynamic  load-deflection  curves  that  show  the  dynamic  deflec¬ 
tion  of  the  pavement  surface  as  a  function  of  the  applied 
load  for  a  fixed  frequency  of  15  Hz. 

Id.  Frequency  response  spectrum  that  shows  the  dynamic  deflection 
as  a  function  of  frequency  for  a  fixed  dynamic  load. 

£.  Deflection  basin  measurements. 

d.  Rayleigh  surface  wave  dispersion  curves  that  show  phase 
velocity  versus  wavelength  (or  frequency). 

Only  test  a  above  is  conducted  and  used  in  the  method  reported  to 
determine  the  subgrade  Young's  modulus. 

Figure  8  presents  a  typical  dynamic  load-deflection  curve 
measured  at  15  Hz.  The  dynamic  deflection  of  the  pavement  surface  is 
a  nonlinear  function  of  the  dynamic  load  applied  to  the  pavement  sur¬ 
face.  The  slope  of  the  dynamic  load-deflection  curve  (tangent  modulus) 
is  called  the  DSM.  The  numerical  value  of  the  DSM  is  generally  obtained 
from  the  region  of  high  dynamic  loading.  Because  the  dynamic  load- 
deflection  curves  are  nonlinear,  a  nonlinear  dynamic  theory  is  required 
for  their  description  and  to  extract  the  value  of  the  subgrade  Young's 
modulus . ^ ’ 

NONLINEAR  DYNAMIC  THEORY 
OF  PAVEMENT  RESPONSE 

The  nonlinear  dynamic  theory  of  pavement  response  was  developed 

to  describe  the  dynamic  load-deflection  curves  that  are  measured  at  the 

pavement  surface  and  to  predict  the  value  of  the  subgrade  Young's 

3  1* 

modulus  from  the  vibratory  nondestructive  test  measurements.  ’  The 
nonlinear  theory  of  pavement  response  develops  and  solves  the  equation 
of  motion  of  a  nonlinear  oscillator  and  gives  a  theoretical  expression 
for  the  dynamic  deflection  of  the  pavement  surface  in  terms  of  the 
dynamic  load  applied  to  the  pavement  surface.  The  parameters  that 

describe  the  nonlinear  pavement  response  are  related  to  the  elastic 

3 

moduli  of  the  pavement  layers  and  the  subgrade.  For  a  specified 
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Figure  8.  Typical  dynamic  load-deflection  curve  for  the  AC  pavement 


choice  of  the  elastic  moduli  of  the  pavement  layers  and  the  Poisson's 
ratio  of  the  subgrade,  the  value  of  the  subgrade  Young's  modulus  is 
obtained  by  requiring  that  the  theoretically  predicted  dynamic  load- 

3 

deflection  curve  agree  with  the  measured  dynamic  load-deflection  curve.  * 

DYNAMIC  PAVEMENT  RESPONSE 
COMPUTER  PROGRAM  SUBE 

The  computer  program  SUBE  calculates  the  value  of  the  subgrade 

Young's  modulus  from  input  data  taken  from  the  measured  dynamic  load- 

k 

deflection  curves.  The  pavement  input  parameters  for  SUBE  include  the 
Young's  modulus,  the  Poisson's  ratio,  and  the  thickness  of  each  pavement 
layer,  as  well  as  the  Poisson's  ratio  of  the  subgrade.  The  computer  in¬ 
put  that  is  taken  from  vibratory  nondestructive  test  data  is  the  DSM 
value  and  a  point-by-point  description  of  the  measured  dynamic  load- 
deflection  curve.  From  the  DSM  value,  SUBE  calculates  the  effective 
mass,  the  damping  constant,  the  finite  depth  of  influence  of  the  static 

stress-strain  field,  and  ail  the  other  parameters  that  enter  into  the 

ii 

nonlinear  theoretical  model  of  pavement  response.  SUBE  iterates  the 
value  of  the  subgrade  Young's  modulus  and  determines  the  value  of  the 
subgrade  Young's  modulus  that  makes  the  theoretically  predicted  DSM 
value  agree  with  the  measured  DSM  value  so  that  the  theoretically  pre¬ 
dicted  dynamic  load-deflection  curve  will  agree  with  the  measured 
dynamic  load-deflection  curve.  Figure  9  outlines  the  procedure. 

NUMERICAL  VALUES  OF  THE  PREDICTED 
SUBGRADE  YOUNG'S  MODULUS 

Tables  h  and  5  show  the  pavement  structures  for  which  dynamic 

load-deflection  curves  were  measured.  These  tables  also  present  the 

values  of  the  elastic  moduli  of  the  pavement  layers  that  were  used  in 

the  computer  program  SUBE  to  predict  the  values  of  the  subgrade  Young's 

modulus.  Figure  10  shows  a  comparison  of  the  subgrade  modulus  values 

predicted  by  the  nonlinear  dynamic  response  theory  through  SUBE  and  the 

17 

subgrade  modulus  values  predicted  by  the  formula  Eg  =  1500  CBR. 

The  predicted  subgrade  Young's  modulus  values  depend  on  the  choice  of 
the  values  of  the  Young's  moduli  of  the  pavement  layers.  No  CBR  or 


Figure  9-  Procedure  for  obtaining  the  subgrade  Young's 
modulus  from  the  measured  dynamic  load-deflection  curve 
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Figure  10.  Comparison  of  subgrade  Young's  modulus  values  predicted 
by  the  nonlinear  dynamic  theory  computer  program  SUBE  and  by  the 
wave  propagation  formula  =  1SOO  CBR 
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coefficient  of  subgrade  reaction  values  were  measured  for  the  subgrade 
at  the  PCC  pavemem.  sites. 

The  formula  Eg  =  1500  CBR,  where  represents  the  subgrade 

Young’s  modulus,  is  obtained  as  a  best-fit  straight  line  through  data 

points  for  which  there  was  considerable  scatter.  Therefore,  this 

relationship  should  be  considered  to  be  approximately  true,  and  many 

deviations  from  the  rule  may  occur  according  to  the  type  of  materials 

present  and  the  extreme  values  of  the  CBR  that  may  be  encountered.  The 

nonlinear  dynamic  theory  of  pavement  response  and  the  associated  computer 

program  SUBE  were  developed  to  predict  values  of  the  subgrade  Young's 

modulus  that  are  in  reasonable  agreement  with  the  predictions  of  the 

formula  E  =  1500  CBR.  The  predicted  values  of  the  subgrade  Young's 
s 

modulus  can  also  be  compared  with  laboratory  resilient  modulus  measure¬ 
ments,  but  this  comparison  was  not  made  in  this  study. 

Some  studies  of  the  sensitivity  of  the  predicted  value  of  the 
subgrade  Young's  modulus  on  the  choice  of  the  value  of  the  elastic 
moduli  of  the  pavement  layers  have  been  conducted.  Figure  11  shows  the 
dependence  of  the  predicted  subgrade  modulus  values  on  the  values  of 
the  Young's  moduli  of  the  pavement  layers  at  a  pavement  site  where  the 
DSM  value  has  been  measured.  The  basic  pavement  structure  about  which 
the  Young's  modulus  value  of  each  pavement  layer  was  varied  one  at  a 

time  is  as  follows 

Ei  =  200,000  psi  h1  “  5.0  in. 

E  *  80,000  psi  h2  ~  7.0  in. 

v  -  40,000  psi  h0  =  9.0  in. 
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YOUNG’S  MODULUS,  104  psi  OF  PAVEMENT  LAYERS 

Figure  11.  Dependence  of  the  subgrade  Yeung's  "  vue.  .s  values  pres: 
computer  program  3UEE  on  the  chosen  values  of  tue  '-’n-r.g's  e: : a. .s  u 
wearing  surface  and  the  base  and  subbase  courses 


LAYERED  ELASTIC  THEORY  CALCULATION  OF  THE 
STRESS  AND  THE  STRAIN  IN  PAVEMENTS 

GENERAL  CONSIDERATIONS 

The  determination  of  the  load-carrying  capacity  of  a  pavement 
and  the  overlay  thickness  required  to  upgrade  a  pavement  entails  the 
calculation  of  the  vertical  compressive  strain  at  the  top  of  the  sub¬ 
grade  or  the  tensile  strain  at  the  bottom  of  the  AC  layer  for  AC  pave¬ 
ments,  and  the  tensile  stress  at  the  bottom  of  the  PCC  layer  for  PCC 
pavements.  The  calculation  of  the  stress  and  the  strain  at  points  in 
the  pavement  and  the  subgrade  is  accomplished  by  modeling  the  pavement 
and  the  subgrade  as  a  semi-infinite  layered  elastic  halfspace  for  which 
each  layer  is  described  by  a  Young's  modulus,  a  Poisson's  ratio,  and  a 
thickness.  The  layered  elastic  theory  connects  the  allowable  load  at 
the  pavement  surface  and  the  required  overlay  thickness  for  FCC  pave¬ 
ments  with  the  limiting  values  of  tensile  stress  at  the  bottom  of  the 

PCC  layer;  and  for  AC  pavements,  with  the  compressive  vertical  strain 

at  the  top  of  the  subgrade  or  the  tensile  strain  at  the  bottom  of  the 

AC  layer.  The  BISAR  computer  program  is  used  to  implement  the  basic 

layered  elastic  theory. 

The  input  parameters  for  the  layered  elastic  theoretical  model 
of  a  pavement  are  the  elastic  modu] i  and  the  thickness  of  each  pavement 
layer.  As  discussed  previously,  the  subgracte  Young's  modulus  can  be 
obtained  from  vibratory  nondestructive  +esl s  conducted  at  the  surface 
of  the  pavement,  and  the  Young's  modulus  of  the  wearing  surface  and  the 
base  and  subbase  courses  can  be  obtained  from  a  classification  of  the 
material  or  from  the  measured  CBH.  The  thicknesses  of  the  pavement 
layers  are  obtained  from  construction  specifications  or  from  measurements 
in  the  field.  Therefore,  all  of  the  parameters  required  by  the  layered 
elastic  theory  are  available  for  pavement  structures. 

BISAR  COMPUTER  PROGRAM 

The  BISAR  computer  program  was  developed  by  the  Shell  Oil  Company 
for  pavement  applications.  This  computer  program  calculates  the  stress 


and  the  strain  at  any  poini  in  the  pavement  or  the  subgrade  due  to  a 
loading  at  the  pavement  surface.  Particle  displacements,  stresses,  and 
strains  are  obtained  by  numerical  integration. 

Boundary  conditions  between  the  pavement  layers  may  be  taken  to 
be  rough  or  smooth.  For  the  rough  condition,  the  radial  and  tangential 
stresses  and  strains  are  continuous  across  the  layer  interfaces.  For 
the  smooth  condition,  the  radiai  and  tangential  stresses  and  strains 
are  not  continuous  across  the  interface.  For  PCC  pavements,  the  inter¬ 
face  between  the  PCC  wearing  surface  and  the  base  is  assumed  to  be 
smooth,  while  all  other  interfaces  are  taken  to  be  rough.  For  AC  pave¬ 
ments,  all  interfaces  are  assumed  to  be  rough. 

Each  pavement  layer  is  characterized  by  a  thickness,  a  Poisson's 
ratio,  and  a  Young's  modules.  Therefore,  three  parameters  must  be 
specified  for  each  pavemen  .  layer.  The  value  of  the  surface  load  arid 
the  size  of  the  circular  1  -aded  area  must  be  specified.  The  coordinates 
of  the  point  in  the  pavement  where  the  stress  and  the  strain  are  to  be 
calculated  must  also  be  specified.  The  BISAK  computer  program  has  the 
capability  of  calculating  the  stress  and  the  strain  in  the  pavement 
when  more  than  one  load  is  applied  to  the  pavement  surface. 

The  BI3AR  computer  program  is  modified  to  calculate  the  overlay 
thickness  required  to  upgrade  a  pavement  and  the  allowable  load-carrying 
capacity  of  a  pavement.  The  modification  consists  of  an  iterative  pro¬ 
cedure  to  match  the  calculated  stress  and  strain  with  specific!  limiting 
values  of  the  stress  and  the  strain.  The  resulting  computer  program  is 
called  PAVEVAL. 
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ALLOWABLE  LOAD- CARRYING  CAPACITY  AND 
REQUIRED  OVERLAY  THICKNESS  OF  PAVEMENTS 


GENERAL  CONSIDERATIONS 

The  allowable  load-carrying  capacity  and  the  required  overlay 
thickness  of  a  pavement  is  related  to  the  pavement  structure.  The 
layered  elastic  theory  relates  the  allowable  load-carrying  capacity  and 
the  required  overlay  thickness  to  the  pavement  structure  as  represented 
by  the  elastic  modulus  and  the  thickness  of  each  pavement  layer.  The 
following  paragraphs  describe  the  layered  elastic  method  of  pavement 
evaluation  and  overlay  design. 

CHOICE  OF  ELASTIC  MODULI  FOR 
PAVEVAL  COMPUTER  PROGRAM 

The  value  of  the  subgrade  Young's  modulus  that  is  used  in  the 
PAVEVAL  computer  program  to  calculate  the  allowable  load-carrying 
capacity  and  the  required  overlay  thickness  of  a  pavement  is  obtained 
by  using  the  computer  program  SUBE  to  analyze  the  dynamic  load-deflection 
curves  measured  at  a  pavement  site.  The  choice  of  the  elastic  moduli 
of  the  pavement  layers  that  are  entered  into  PAVEVAL  are  the  same  as 
those  selected  for  SUBE  with  the  exception  that  the  Young's  modulus  of 
AC  pavements  and  AC  base  materials  is  chosen  always  to  have  the  value 
E  =  1+50,000  psi  in  PAVEVAL.  This  value  of  the  Young's  modulus  is 
obtained  from  Figure  3,  corresponding  to  an  assumed  average  yearly 
pavement  temperature  of  T0°F. 

The  values  of  the  Young's  modulus  of  AC  pavements  and  AC  base 
materials  that  are  used  in  the  computer  program  SUBE  to  calculate  the 
subgrade  Young's  modulus  are  obtained  from  Figure  3  for  a  temperature 
equal  to  the  pavement  temperature  at  the  time  of  the  measurement  of  the 
dynamic  load-deflection  curves. 

SINGLE-WHEEL  LOADING 

A  point  in  the  pavement  and  the  subgrade  is  designated  to  have 
coordinates  x,y,z,  where  x  and  y  describe  the  horizontal  plane  and  z 
measures  the  depth  beneath  the  pavement  surface  (Figure  12).  The 


H,  -  h,  +  h2  f  h3  =  DEPTH  TO  TOP  OF  SUBGRADE 


Figure  12.  Coordinate  system  chosen  for  the  layered 
elastic  theory  of  pavements 

vertical  strain  ,  the  tensile  strain  ,  and  the  radial  stress 

a  at  a  point  in  the  pavement  are  functions  of  the  coordinates  of  the 

^  /  '  i 

point  in  the  manner  e,,  *  ey(x,y»?.)  ,  ■  ^  =  ^ x »y > 7 >  »  l7p  =  ap^x>-v’7. 

The  maximum  values  of  the  stress  and  the  strain  in  the  pavement  and 
the  subgrade  occur  directly  beneath  the  single-wheel  load,  so  that  if 
a  coordinate  system  is  chosen  whose  origin  is  at  the  center  of  the 
single-wheel  load,  as  shown  in  Figures  12  and  13,  the  vertical  stiain 
at  the  top  of  the  subgrade,  the  radial  strain  at  the  bottom  of  the  AC 
layer,  and  the  tensile  stress  at  the  bottom  of  the  FCC  layer  are 
represented  by 


=  ^(0,  0,  Hs) 

eR  =  €r  0/  ^j) 


AC  PAVEMENT 


aR  =  <7r  (0.  o,  hj) 


PCC  PAVEMENT 


Figure  13.  Calculation  of  the  stress  and 
the  strain  for  a  single-wheel  loading 
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ev  -  ev  (0>°’Ks) 

£R  =  £R  (0*°*hl) 
aR  =  aR  (0,0,^)  (U) 

where 

H  =  depth  to  the  top  of  the  subgrade  of  an  AC  pavement 
s 

h^  =  thickness  of  a  PCC  or  an  AC  wearing  surface 
The  conditions  that  determine  the  allowable  load-carrying  capacity  and 
the  required  overlay  thickness  are 
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PCC  pavement 
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where 


£R  and  °R 
eVL 


=  values  from  Equations  3  and  h ,  respectively 
=  limiting  strain  from  Figures  5  and  6 


eDT  =  tensile  strain  from  Figure  7 
nL 

o  =  limiting  stress  from  Equation  2 

nJj 


MULTIPLE-WHEEL  LOADING 


Actual  aircraft  loadings  on  a  pavement  occur  through  two  or  more 
wheels  in  close  proximity.  Dual-gear  (two  wheels)  and  dual-tandem-gear 
(four  wheels)  configurations  are  commonly  used.  As  indicated  in 
Figure  lU ,  a  total  number  of  four  main  gear  wheels  are  associated  with 
two  dual-gear  configurations,  and  eight  main  gear  wheels  with  two 
dual- tandem-gear  configurations.  For  the  case  of  multiple  wheels,  the 
total  strain  or  stress  in  the  pavement  beneath  one  wheel  is  due  in  part 
to  the  presence  of  the  other  wheels.  The  maximum  values  of  the  stress 
and  the  strain  at  some  depth  in  the  pavement  occur  at  a  point  between 
the  wheels  of  the  gear  configuration ,  but  these  maximum  values  of  the 
stress  and  the  strain  in  the  pavement  are  to  a  good  approximation  equal 
to  the  values  of  the  stress  and  the  strain  in  the  pavement  beneath  one 
of  the  wheels  of  a  multiple-wheel  configuration.  The  multiple-wheel 
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DUAL  WHEELS 


0RD  =0RO<O,O,hi) 


PCC  PAVEMENT 


€  RD  =fRD(0,0,hi) 
€  VD  “£vd(0,0,Hs) 


] 


AC  PAVEMENT 


DUAL-TANDEM  WHEELS 


OrDT  =^RDT<0.0,hi)  PCC  PAVEMENT 

£ RDT  *  fROT(O.O.hl> 

€  VDT  *  €  VDT(0,0,Hs) 

Figure  lU.  Calculation  of  the  total  stress  and 
strain  for  dual  and  dual-tandem  wheels 


AC  PAVEMENT 
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calculations  are  made  within  this  approximation.  The  calculation  of 
the  allowable  load-carrying  capacity  and  the  required  overlay  thickness 
must  include  the  additive  stress  and  strain  effects  associated  with 
multiple-wheel  loadings. 

The  effects  of  multiple-wheel  loadings  are  accounted  for  by 
calculating  the  net  stress  and  strain  in  the  pavement  or  the  subgrade 
under  a  selected  wheel  and  by  adding  the  stress  and  strain  components 
of  the  remaining  wheels  occurring  under  the  selected  wheel.  The  BISAP 
computer  program  calculates  the  stress  and  the  strain  in  a  pavement  at 
any  depth  directly  under  one  wheel  due  to  the  action  of  the  wheel  loads 
applied  at  the  pavement  surface.  For  dual  wheels,  let 

e.^  =  total  vertical  strain  at  a  point  in  the  pavement 

directly  under  one  wheel  at  the  top  of  the  subgrade 
for  AC  pavements 

eRP  =  total  radial  strain  under  one  wheel  at  the  bottom 
of  the  AC  pavement  layer 

Opp  =  total  radial  stress  at  the  bottom  of  the  FCC  layer 
at  a  point  under  one  wheel 

For  dual-tandem  wheels,  let 

tyD-j,  =  total  vertical  strain  at  the  top  of  the  subgrade 
for  AC  pavements  at  a  point  directly  under  one 
wheel 

eRDT  =  tcrtal  radial  strain  at  the  bottom  of  the  AC 
pavement  layer  at  a  point  under  one  wheel 

aRDT  =  radial  stress  at  the  bottom  of  the  PCC 

layer  at  a  point  under  one  wheel 

For  dual  wheels,  the  conditions  that  determine  the  allowable 
load-carrying  capacity  and  the  required  overlay  thickness  are 
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while  for  dual-tandem  wheels  the  conditions  are 


111 


AC  pavement 


(9) 


The  limiting  stress  and  strain  values  do  not  depend  on  the  type  of  sur¬ 
face  loading  and  are  valid  for  single-  and  multiple-wheel  loadings. 


ALLOWABLE  LOAD-CARRYING  AND  REQUIRED 
OVERLAY  THICKNESS  FOR  AC  AND  PCC 
PAVEMENTS 


For  AC  and  PCC  pavements,  the  allowable  load-carrying  capacity 
is  calculated  by  monitoring  the  stress  and  the  strain  at  points  in  the 
pavement  indicated  in  Figure  15.  The  PAVEVAL  computer  program  has  the 
capability  of  iterating  the  wheel  load  at  the  pavement  surface  for  a 
given  pavement  structure  until  the  calculated  value  of  the  vertical 
strain  at  the  top  of  the  subgrade  of  an  AC  pavement  is  equal  to  the 
limiting  value  of  the  vertical  strain  or  until  the  calculated  value  of 
the  tensile  strain  at  the  bottom  of  the  AC  layer  is  equal  to  the  limit¬ 
ing  value  of  the  tensile  strain,  as  shown  in  Figures  5»  6,  and  7.  The 
calculated  value  of  the  tensile  stress  at  the  bottom  of  the  PCC  layer 
must  equal  the  limiting  value  of  the  tensile  stress  as  given  in 
Equation  2.  This  determines  the  allowable  load-carrying  capacity  for 
AC  and  PCC  pavements. 

The  required  overlay  thickness  for  AC  and  PCC  pavements  is 
calculated  by  examining  the  stress  and  the  strain  at  points  in  the 
pavement  indicated  in  Figure  16.  The  PAVEVAL  computer  program  can  be 
used  to  iterate  the  thickness  of  the  overlay  for  a  wheel  load  until 
the  calculated  value  of  the  vertical  strain  at  the  top  of  the  subgrade 
of  an  AC  pavement  is  equal  to  or  less  than  the  limiting  value  of  the 
vertical  strain  and  until  the  calculated  value  of  the  tensile  strain  at 
the  bottom  of  the  AC  layer  is  equal  to  or  less  than  the  limiting  value 
of  the  tensile  strain.  For  PCC  pavements,  the  calculated  value  of  the 
tensile  stress  at  the  bottom  of  the  PCC  layer  must  equal  the  limiting 
value  of  the  tensile  stress. 
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Figure  15 .  Location  of  points  where  the  total  stress  and 
strain  are  monitored  for  the  calculation  of  the  allowable 
load-carrying  capacity  of  AC  and  PCC  pavements 
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NUMERICAL  VALUES  OF  THE  ALLOWABLE  LOAD- CARRYING 
CAPACITY  AND  THE  REQUIRED  OVERLAY  THICKNESS 


The  pavement  evaluation  procedures  discussed  previously  were 
applied  to  a  number  of  PCC  and  AC  pavement  structures  for  single-  and 
multiple-wheel  loadings,  and  the  allowable  load-carrying  capacity  and 
the  required  overlay  thickness  were  calculated  by  combining  the  layered 
elastic  theory  with  inputs  from  vibratory  nondestructive  testing.  For 
these  pavement  structures,  the  allowable  load-carrying  capacity  and  the 
required  overlay  thickness  were  also  calculated  by  the  conventional  CBR 
and  DSM  methods  for  AC  pavements  and  by  the  Westergaard  and  DSM  methods 
for  PCC  pavements. 

Tables  6-17  present  the  predicted  values  of  the  allowable  load¬ 
carrying  capacity  and  the  required  overlay  thickness  for  the  AC  and  PCC 
pavement  sites  whose  structures  appear  in  Tables  h  and  5.  In  these 
tables,  the  load-carrying  capacity  is  expressed  in  terms  of  the  load  on 
one  wheel.  The  total  allowable  airplane  load  is  obtained  by  the  ex¬ 
pression:  (allowable  load  on  one  wheel)  x  (total  number  of  main  gear 

wheels )/0. 95.  Single-wheel,  dual-wheel,  and  dual-tandem-wheel  gear 
configurations  were  considered.  The  total  number  of  main  gear  wheels 
for  these  configurations  are  2,  U,  and  8,  respectively.  Specific  cal¬ 
culations  were  done  for  the  single-wheel  load,  the  Boeing  727  (dual 
wheels),  the  DC-8-6'3F  ( dual-tandem  wheels ) ,  and  the  DC-10-10  (dual¬ 
tandem  wheels). 

For  AC  pavements.  Figures  17  and  18  compare  the  layered  elastic 
theory  calculation  of  the  allowable  load  on  one  wheel  and  the  required 
AC  overlay  thicknes  with  the  corresponding  CBR  calculation  of  these 
quantities.  For  PCC  pavements.  Figures  19  and  20  compare  the  results 
of  the  layered  elastic  theory  calculation  of  the  allowable  load  on  one 
wheel  and  the  AC  and  PCC  required  overlay  thickness  with  the  results 
of  the  corresponding  Westergaard  calculations  of  these  quantities. 
Reference  1  describes  the  CBR  :md  Westergaard  methods  of  calculating 
the  allowable  load  and  the  overlay  thickness,  respectively,  for  AC  and 
PCC  pavements.  The  data  plotted  in  Figures  17-21  correspond  to  the  data 
presented  in  Tables  6-17. 


Table  6.  Allowable  Load  (Layered  Elastic  Theory  Method)  of  AC  Pavement, 

1200  Annual  Strain  Repetitions 
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Table  10.  Required  Overlay  Thickness  (CBR  Method)  of  AC  Pavement, 
1200  Annual  Strain  Repetitions 


o 

«  O  CM 

CD  «— ♦ 


In  a! 

4» 

£5  . 

«-♦  T  a 

W  0  3 

0)  4) 


H  CO  Q 
fl)  B) 

>4)  CM 
O  C  r-4 

J2  a) 

T3  O  01  M  fl 

■H  P  |  41 

3  *-»  O 

o*  cd  cQ 

<2  O 


X 

CO 

X> 

CO 

H 

i—4 

U  CD 

m 

4)  CO 

»H 

CM 

>  4J 

4) 

sO 

6  c 

4) 

• 

• 

J2 
•o  o 

4)  «H 

1 

5 

m 

ro 

U  -C  4) 

•H  H  rH 

D  40 
O*  C 

4)  *H 

PCS  CO 


L  T5 

aJ  4>  d 

*  W  m  *H 

51  4)  «)  *  m 

&  h  3  o  ® 

0  2  -m  a  a 

4)  -P  T3  «H 

E-*  «*2  M 

t3 

M  5 


os  CM  CM 

•  •  • 

CM  CM  CM  00  00 


co  co 

OS  OS 


oo  oo  --  h 

•  •  •  • 

Os  Os  sO  vO 


O  -«  -« 


m 

o  ^ 


o  ^ 

s  s  s 


O 

SO 

CM 

o 

SO 

O  O 

co  Q 

8 

8 

2680 

sO 

00 

O 

CM 

sO  O 

CM  CO 

CM 

8 

o 

v£> 

o 

CM 

o 

00 

8 

o 

CO 

o 

O 

CM 

O 

00 

O 

00 

1680 

o 

CM 

o. 

00 

00 

00 

o 

CM 

*“4 

OS 

CM 

r- 

CM 

Os 

CO 

^  co  cm 

CM  CM  CO 

I  I  I  I 

.*  J4  ^  Jrf 

4)  4)  41  « 

4)  4)  4)  4) 

f-s  M  M  M  M 

3t  O  CJ  O  O 

§  §  §  § 

3  5  5!  3 


CO 

CO 

CO 

00 

a. 

Ou 

CM 

2 

0Q 

« 

2 

From  Reference 


eg 

o 

r-* 

CN 

vO 

r^. 

CM 

00 

• 

• 

• 

• 

• 

• 

• 

• 

00 

CM 

sO 

sO 

m 

co 

o 

o 

o 

sO 

o 

£■3 

0) 

Jn  £ 

<d  S  • 
fH  T  c 
U  &  H 
0)  0) 


cr  o  oo  -<r 
<u  w  | 


T5 

tT3 

O 

►J  r- 
eg 
•h  r*- 
0) 

0)  00  C 

§  .5  -H 

I  0) 

•H  O 
to  ffl 


"O 

5*s  tO 
tTJ  O 
fH  t-J 
J-J  (A 
<U  W  H 
>  <U  OJ 

o  q  a)  . 

^■sss 

<U  H  | 
jC  <u 
•H  H  H 
P  00 

cr  c 
cu  H 
a:  co 


I  T3  • 

cd  a>  c 

f-»  *  H  *H 

<D  0)  0)  ~  \ 

&h5g» 
0  d  T-,  °  a 

<»  -p  -a  *h 

Eh  <  Jd 


■H  i— H  Cl 


m 

O 

t— ^ 

o 

eg 

o 

o 

o 

o 

00 

00 

sO 

sO 

CO 

o 

oo 

o 

m 

m 

sO 

00 

O 

so 

o 

•-H 

CM 

CM 

co 

o 

o 

o 

o 

O 

o 

O 

o 

o 

o 

SO 

eg 

00 

O 

co 

-3“ 

eg 

00 

r- 

CO 

oo 

oo 

o 

eg 

Os 

^h 

»“H 

fH 

eg 

eg 

rS 

CO 

CM 

fH 

eg 

eg 

co 

i 

1 

M 

l 

l 

M 

i 

0) 

a> 

0) 

a» 

eg 

0) 

}*l 

0) 

u 

a) 

p 

Q> 

eg 

CO 

PQ 

3 

O 

CJ 

a 

u 

s 

O 

a 

3 

Cu 

Cu 

1 

I 

fH 

c 

1 

3 

1 

3 

—  ® 

cq  r: 


? 


51 


Table  12  (Concluded) 


Table  13.  Allowable  Load  (Westergaard  Method)  of  PCC  Pavement 
1200  Annual  Stress  Repetitions 


(Continued) 


Table  13  (Concluded) 


Table  lk.  Allowable  Load  (DSM  Method)  of  PCC  Pavement 

1200  Annual  Stress  Repetitions 
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Table  15  (Concluded) 
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Table  17  (Concluded) 


Figure  IT.  Allowable 
layered  elastic  theor; 


BOEING  727 


Figure  19.  AC  and  PCC  required  overlay  thicknesses  for  PCC  pavements  calculated 
by  the  layered  elastic  theory  and  the  Westergaard  method 


DC  10-10 


values  of  allowable  loads  that  are  larger  than  the  aircraft  loads,  while 
the  DSM  method  predicts  allowable  load  values  that  are  less  than  the 
aircraft  load  (Tables  6  and  8  and  Figure  17).  For  these  cases,  the  values 
of  the  required  overlay  thicknessess  predicted  by  the  layered  elastic 
theory  method  are  zero  while  those  predicted  by  the  DSM  method  have 
nonzero  values  (Figure  18) . 
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SUMMARY,  CONCLUSIONS,  AND  RECOMMENDATIONS 


SUMMARY 

The  capability  of  determining  the  load-carrying  capacity  of  a 
pavement  and  the  overlay  thickness  required  to  upgrade  a  pavement  is 
important  to  pavement  engineers.  A  simple  method  of  pavement  evaluation 
combining  vibratory  nondestructive  field  tests  with  a  layered  elastic 
theory  was  developed  to  satisfy  the  needs  of  the  pavement  engineer.  The 
layered  elastic  theory  approach  to  calculating  the  required  overlay 
thickness  and  the  load-carrying  capacity  of  a  pavement  requires  the 
value  of  the  subgrade  Young's  modulus,  and  this  value  is  determined  by 
an  analysis  of  the  pavement  dynamic  response  obtained  from  vibratory 
nondestructive  testing.  This  approach  requires  a  knowledge  of  the 
structure  of  the  pavement  and  the  subgrade  as  described  by  the  elastic 
modulus,  the  Poisson's  ratio,  and  the  thickness  of  each  pavement  layer. 

The  method  of  pavement  evaluation  presented  consists  of  two 
parts:  (a)  the  determination  of  the  subgrade  Young's  modulus  from 

vibratory  nondestructive  tests  that  measure  the  pavement  response  to 
an  applied  dynamic  load,  and  (b)  the  use  of  the  layered  elastic  theory 
and  the  determined  value  of  the  subgrade  Young's  modulus  to  predict  the 
allowable  load-carrying  capacity  and  the  required  overlay  thickness  of 
a  pavement.  Two  computer  programs,  SUBE  and  PAVEVAL,  are  used  to 
evaluate  a  pavement  based  on  vibratory  nondestructive  tests  and  the 
layered  elastic  theory. 

The  computer  program  SUBE  determines  the  value  of  the  subgrade 
Young's  modulus  from  the  measured  dynamic  load-deflection  curves  and 
the  estimated  values  of  the  elastic  moduli  and  thicknesses  of  the  pave¬ 
ment  layers.  The  mathematical  model  on  which  SUBE  is  based  is  a  non¬ 
linear  harmonic  oscillator  whose  predicted  dynamic  load-deflection 
curve  is  matched  to  the  measured  dynamic  load-deflection  curves  in  order 
to  determine  the  value  of  the  subgrade  Young's  modulus.  The  predicted 
values  of  the  subgrade  Young's  modulus  arc  in  essential  agreement  with 
the  formula  Eg  =  1500  CBR  and  are  not  especially  sensitive  to  the 
choice  of  the  elastic  moduli  of  the  pavement  layers. 
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The  computer  program  PAVEVAL  calculates  the  allowable  load-carrying 
capacity  and  the  required  overlay  thickness  values  for  the  layered  elas¬ 
tic  theory  by  relating  the  stress  and  the  strain  at  any  point  in  the 
pavement  or  subgrade  to  the  magnitude  of  the  static  load  applied  to  the 
pavement  surface.  The  elastic  moduli,  Poisson's  ratios,  and  thicknesses 
of  the  pavement  layers  and  the  subgrade  must  be  known  to  use  this  com¬ 
puter  program.  For  PCC,  the  flexural  strength  must  also  be  known. 

Aircraft  parameters  including  the  load  on  one  wheel,  the  tire  contact 
area,  wheel  spacings,  and  the  total  number  of  main  gear  wheels  are  also 
required  for  PAVEVAL. 

CONCLUSIONS 

The  study  of  predicting  pavement  performance  and  overlay  design 
by  the  combined  techniques  of  layered  elastic  theory  and  vibratory 
nondestructive  testing  yielded  the  following  conclusions: 

a.  The  layered  elastic  theory  method  using  the  subgrade  Young's 
modulus  determined  from  the  results  of  vibratory  nondestruc¬ 
tive  tests  is  sufficient  to  predict  the  allowable  load¬ 
carrying  capacity  and  the  required  overlay  thickness  for  a 
pavement ;  computer  programs  SUBE  and  PAVEVAL  have  been 
developed  to  aid  in  pavement  evaluation  and  overlay  design. 

b.  The  value  of  the  subgrade  Young's  modulus  can  be  obtained 
from  vibratory  nondestructive  test  results  through  the  use 
of  the  computer  program  SUBE. 

£.  Limiting  stress  and  strain  criteria  can  be  used  in  conjunc¬ 
tion  with  the  layered  elastic  theory  to  determine  the 
allowable  load-carrying  capacity  and  the  required  overlay 
thickness  of  a  pavement.  This  can  be  determined  for  dual¬ 
wheel  and  dual-tandem-wheel  loads,  as  well  as  for  single¬ 
wheel  loads,  by  using  the  computer  program  PAVEVAL. 

RECOMMENDATIONS 

A  method  has  been  developed  for  calculating  the  allowable  load¬ 
carrying  capacity  and  the  required  overlay  thickness  for  pavements  by 
using  the  combined  methods  of  layered  elastic  theory  and  vibratory 
nondestructive  testing.  The  accuracy  of  these  calculations  depends  in 
part  on  the  accuracy  of  the  predicted  values  of  the  subgrade  Young's 
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modulus.  Further  experimental  work  is  necessary  to  validate  the 
predicted  pavement  evaluations,  overlay  designs,  and  values  of  the 
subgrade  Young's  modulus. 

DETERMINATION  OF  SUBSURFACE 

STRUCTURE 

The  determination  of  the  subgrade  Young's  modulus  by  the 
vibratory  nondestructive  testing  technique  requires  a  knowledge  of  the 
elastic  moduli  of  the  pavement  layers  above  the  subgrade.  The  determi¬ 
nation  of  the  allowable  load-carrying  capacity  of  a  pavement  by  the 
layered  elastic  theory  method  requires  the  elastic  moduli  of  all  pave¬ 
ment  layers  as  well  as  the  Young's  modulus  of  the  subgrade.  Therefore, 
the  Young's  moduli  of  the  pavement  layers  are  used  twice  in  the  proce¬ 
dure  for  calculating  the  allowable  load-carrying  capacity  of  a  pavement. 
In  view  of  this,  it  is  recommended  that: 

a.  Vibratory  nondestructive  tests  be  developed  that  will 
accurately  determine  the  values  of  the  Young's  moduli  of 
all  pavement  layers . 

b.  A  reliable  method  be  developed  to  estimate  the  Young's 
modulus  of  the  material  in  each  pavement  layer  in  terms  of 
its  composition  and  structure. 

STATIC  LOAD  TESTS 

Static  load  tests  are  required  for  the  conventional  evaluation 
of  PCC  and  AC  pavements.  These  tests  determine  the  CBR  for  the  AC 
pavement  evaluation  and  the  coefficient  of  the  subgrade  reaction  for 
the  PCC  evaluation  using  the  Westergaard  theory.  It  is  recommended 
that  static  load  tests  and  vibratory  nondestructive  tests  be  performed 
at  a  number  of  pavement  sites  so  that  further  comparisons  can  be  made. 

LABORATORY  CONFIRMATION 

OF  FIELD  TEST  DATA 

A  complete  connection  between  t.he  resilient  modulus  laboratory 
tests  and  tbe  vibratory  nondestructive  fieid  tests  has  not  yet  been 
accomplished.  However,  the  results  of  a  preliminary  theoretical  study 
show  that  it  is  possible  to  apply  a  nonlinear  dynamic  theory  to  the 
resilient  modulus  laboratory  test  to  determine  the  static  elastic 
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Young's  modulus  of  a  subgrade  soil  and  to  compare  this  value  with  the 

Young's  modulus  value  predicted  by  the  nonlinear  dynamic  analysis  of  the 

vibratory  nondestructive  field  test  data  and  with  the  Young's  modulus 

1* 

predicted  by  the  formula  =  1500  CBR.  It  is  recommended  that  resil¬ 
ient  modulus  tests  be  conducted  on  undisturbed  soil  samples  taken  at 
sites  where  vibratory  nondestructive  tests  have  been  conducted. 
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APPENDIX  A:  COMPUTER  PROGRAM  SUBt 

The  evaluation  of  rigid  and  flexible  pavements  by  the  combined 
methods  of  vibratory  nondestructive  testing  and  layered  elastic  theory 
requires  two  computer  programs.  The  computer  program  SUBE  calculates 
the  value  of  the  subgrade  Young's  modulus  from  the  dynamic  load-deflection 
curves  measured  at  the  pavement  surface  and  from  the  chosen  values  of 
the  elastic  moduli  of  the  pavement  layers. 

DOCUMENTATION  OF  THE  COMPUTER 
PROGRAM  SUBE 

PROGRAM  IDENTIFICATION 

a.  Program  Title.  WES  Nonlinear  Dynamic  Load-Deflection  Program 

b .  Program  Code  Name .  SUBE 

c_.  Writer.  Richard  A.  Weiss  and  Adrian  P.  Park 

jd.  Organization.  U.  S.  Army  Engineer  Waterways  Experiment 
Station,  Vicksburg,  MS  39180 

e_.  Date.  July  1977 

f.  Source  Language.  Fortran  IV 

g.  Abstract .  Program  calculates  the  value  of  the  subgrade 
Young's  modulus  by  requiring  a  nonlinear  dynamic  pavement 
response  model  to  agree  with  the  measured  dynamic  load- 
deflection  curves . 

ENGINEERING  DOCUMENTATION 

Narrative  inscription.  The  pavement  and  cubgrade  are  modeled 
as  a  nonlinear  harfoonic  oscillator  with  third-order  and  fifth-order 
nonlinear  terms.  The  inertial  and  damping  characteristics  of  the 
pavement  are  introduced  by  an  effective  pavement  mass  and  a  damping 
constant.  These  model  parameters  are  expressed  in  terms  of  the  measured 
DSM  of  the  pavement.  The  elastic  characteristics  of  the  pavement  and 
subgrade  are  represented  by  the  Young's  moduli  and  Poisson's  ratios  of 
the  pavement  layers. 

Method  of  Solution.  The  solution  of  a  nonlinear  harmonic 
oscillator  model  of  pavement  response  is  determined  in  terms  of  the 
elastic  moduli  and  thicknesses  of  the  pavement  layers,  the  effective 
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mass  of  the  pavement ,  the  damping  constant ,  and  the  assorted  nonlinear 
model  parameters.  The  value  of  the  subgrade  Young's  modulus  is  obtained 
by  matching  the  theoretical  solution  for  the  dynamic  load-deflection 
curve  with  the  measured  value  of  the  dynamic  load-deflection  curve. 

The  computer  program  SUBE  is  used  to  calculate  the  subgrade  Young's 
modulus.  This  computer  program  iterates  the  value  of  the  subgrade 
Young's  modulus  until  the  theoretically  predicted  dynamic  load-deflection 
curve  agrees  with  the  measured  dynamic  load-deflection  curve;  the  value 
of  the  subgrade  Young's  modulus  that  brings  agreement  between  its 
measured  and  theoretical  load-deflection  curves  is  the  subgrade  Young's 
modulus  value  that  is  printed  out  by  the  program  SUBE. 

Program  Capabilities.  The  program  calculates  the  subgrade  Young's 
modulus  from  dynamic  load-deflection  curves  measured  on  either  flexible 
or  rigid  pavements.  Rigid  and  flexible  pavements  can  be  handled  by 
entering  the  appropriate  values  of  the  elastic  moduli  of  the  wearing 
surface.  The  computer  program  SUBE  is  valid  only  for  a  limited  range 
of  measured  dynamic  load-deflection  curves.  The  DSM  is  the  slope  of 
the  measured  dynamic  load-deflection  curve  for  a  dynamic  load 
F^  =  15  kips.  The  computer  program  SUBE  gives  valid  predictions  of  the 
subgrade  Young's  modulus  only  within  the  range  300  <  DSM  <  6500  kips/in. 

Printed  Output.  The  printed  output  consists  of  the  predicted 
value  of  the  subgrade  Young's  modulus. 

Computer  Equipment.  The  program  SUBE  was  developed  on  the  IBM 
360/65  computer. 


INPUT  GUIDE  FOR  COMPUTER 
PROGRAM  SUBE 

The  input  for  the  computer  program  SUBE  is  the  elastic  moduli 
and  thicknesses  of  the  pavement  layers,  the  measured  DSM,  and  a 
point-by-point  description  of  the  measured  dynamic  load-deflection 
curve.  The  point-by-point  description  of  the  measured  dynamic  load- 
deflect.ion  curve  is  entered  into  SUBE  by  means  of  a  data  file.  The 


elastic  constants,  layer  thicknesses,  and  the  measured  DSM  value  are 
entered  into  the  main  body  of  the  computer  program.  This  is  done  as 
follows : 

2360  Measured  DSM  value  (kips/in. ) 

2365  Enter  0.0  if  dynamic  load-deflection  curve  is  straight  and 
1.0  if  dynamic  load-deflection  curve  is  curved 

5240  Poisson's  ratio  of  layer  1 

5250  Poisson's  ratio  of  layer  2 

5260  Poisson's  ratio  of  layer  3 

5270  Poisson's  ratio  of  layer  4 

5300  Young's  modulus  of  layer  2,  psi 

5310  Young’s  modulus  of  layer  2,  psi 

5320  Young's  modulus  of  layer  3,  psi 

533u  Initial  value  of  Young's  modulus  of  subgrade,  psi. 

5340  Iteration  statement  for  Young's  modulus  of  subgrade 

5580  Thickness  of  layer  1,  in. 

5590  Thickness  of  layer  2,  in. 

5600  Thickness  of  layer  3,  in. 

INPUT  GUIDE  FOR  DATA 

FILE  FOR  SUBE 

010  9000 

Dynamic  Load,  kips  Dynamic  Deflection,  mils 
012  2 

0l4  4  " 

016  6 

018  8  " 

020  10  " 

022  12  " 

02)*  ll*  " 

SAMPLE  PROBLEM  USING 
PROGRAM  SUBE 

The  calculation  of  the  subgrade  Young's  modulus  using  the  program 
SUBE  proceeds  as  follows.  From  the  measured  dynamic  load-deflection 
curve,  create  the  following  data  file  and  computer  input  for  SURF. 


Date  File  N23 


Computer  Input 


010 

9000 

2360 

DSMM  =  980 

012 

2 

1.2 

2365 

CUR  =  1.0 

0l4 

4 

2.5 

5240 

P0IS1  =0.3 

016 

6 

3.85 

5250 

P0IS2  =0.3 

018 

8 

5.5 

5260 

P0IS3  =  0.35 

020 

10 

7-5 

5270 

P0IS4  =  0.35 

022 

12 

9.4 

5300 

EMD1  =  1.3  x 

106 

024 

i4 

11.5 

5310 

EMD2  =  1.3  x 

106 

SAVE 

N23 

5320 

EMD3  =  4.0  x 

iou 

5330  EMD4  =  10,000 

5340  633  EMD4  =  EMD4  +  1000 

5580  HI  =  3.0 

5590  H2  =  3.0 

5600  H3  =  7.0 

RUN 


NAME  OF  DATA  FILE?  N23 

PROGRAM  LISTING 

A  complete  listing  of  the  computer  program  is  presented  on  the 
following  pages. 
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I» 

z» 

3« 

4* 

5* 

6* 

7. 

8. 
9* 

10* 

n* 

12- 

1  3» 
14. 
15» 
16. 

17. 

18. 
19* 
20. 
21. 
22. 

23. 

24. 

2  5- 
26. 

27. 

28. 

29. 

30. 

31. 
32* 
33« 

34. 

35. 
34. 

37. 

38. 

39. 

40. 

41. 
42» 

43. 

44. 

45. 


JOB  SUBE, ROKPDH, ROKPDH, OPT- <C,R,T> 

LIMIT  BAND-100, MIN-60 

FTNLX  SPACE-90000, FADDMEM-40K , FTNTIME- l 00000, F TNOPT- ( K , M , X ) 

PROGRAM  TITLE  UES  NONLINEAR  DVNAMIC  LOAD-DEFLECT  ION 

CURVE  PROGRAM 

PROGRAM  CODE  NAME  SUBE 

WRITER  RICHARD  A.  WEISS  AND  ARDEN  P.  PARK 

ORGANIZATION  U.S.  ARMY  ENGINEER  WATERWAYS  EXPERIMENT 

VICKSBURG, MISSISSIPPI  39180 
DATE  OCTOBER  1978 

SOURCE  LANGUAGE  FORTRAN  Iv 

AVAILABILITY  COMPLETE  PROGRAM  LISTING  IS  AVAILABLE 


ABST  RACT 


00000015 
00000016 
00000020 
00000025 
STATIONO 
00000035 
00000040 
00000045 
AT  WE  SO 0 50 
00000055 

COMPUTER  PROGRAM  SUBE  CALCULATES  THE  VALUE  OF  THE  SUBGRADE  000060 


YOUNG'S  MODULUS  FROM  THE  DYNAMIC  AD- DE F L EOT  I  ON  CURVES 

MEASURED  AT  THE  PAVEMENT  SURFACE.  THIS  IS  DONE  BY 
REQUIRING  THE  THEORETICAL  RESULTS  OF  A  NONLINEAR  DYNAMIC 
RESPONSE  MODEL  FOR  THE  PAVEMENT  TO  AGREE  WITH  THE 
MEASURED  DYNAMIC  LOAD-DE F LtC T ION  CURVES 

PROGRAM  SUBE 
POLFT  DEC  6,  1972 

THE  SUBPROGRAM  POLFT  FITS  LEAST-SQUARES  POLYNOMIALS  TO 
BIVARIATE  DATA.  IT  IS  APPLIED  TO  THE  MEASURED  DYNAHIC  LOAD- 
DEFLECTION  CURVES  IN  THE  FORM  OF  AN  ODD  ORDER  POLYNOMIAL 
HAVING  LINEAR, CUBIC  AND  FIFTH  ORDER  TERMS 

DIMENSION  A(15),B(15),S(15).G(15).U(1S), 
t  2P(6).RR(5),CR(5). 

t  P(100),X(100),V(100).C(100),Q(100) 

INTEGER  FNAME 


10 

30 

36 


FNANF-05 
FORMAT! A3) 

GO  TO  590 
Z-0 
O-I 
K  *  1  2 
N-N*l 
IFCN.GT 
IFIM.LT 
IFIM.GT. 100) 
T7-2 
T8  =  Z 


12)  GO,. TO  576 
N)  GO  TO  616 

GO  TO  570 


00000065 
00000070 
00000075 
00000080 
00000085 
00000090 
00000095 
00000100 
00000105 
00000110 
000001  1  5 
00000120 
00000125 
00000130 
00000135 
00000140 
00000145 
00000155 
00000170 
00000175 
00000180 
00000185 
00000190 
00000195 
00000200 
00000205 
00000210 
00000215 
00000220 


46« 

W7-Z 

47. 

305 

DO  310  I-l.M 

48. 

W7-W7.X! I ) 

49. 

T7-T7.Y! I ) 

50« 

310 

T8- T8-Y! I 1 »Y(  I ) 

51- 

T9*(M«T8-T7»T7)/(M-M 

00000230 

00000235 

00000240 

00000245 

00000250 


A- 5 


52* 

M77*W7/M 

00QQ02SS 

53* 

T77*T7/M 

00000260 

54* 

T99-SQRTC T9) 

00000265 

55* 

314  FORMAT (///.'  LEAST  SQUARES 

P  0  L 

Y  N  0  M  I  A  L  S’,/'. 

56* 

4//.7X, 'NUMBER  OF  POINTS  * • , 1 2 , / . 7X , *  ME AN 

VALUE 

OF  X  » ' , 1PE14 . 6 , 

57# 
55# 
59*  C 

6/ ,  7X , 'MEAN  VALUE  OF  V  *  •  .  1  PE  14 . 6  . 7X  .  ' 
8 1  PE  14 . 6 ) 

STD  ERROR  OF  Y  *'. 

00000295 

60# 

DO  352  1*1. M 

00000300 

61* 

PC  n*z 

00000305 

62* 

352  QCI)*0 

00000310 

63# 

66* 

65* 

66* 

67* 

68* 

DO  362  1*1.11 

362  ACl)*Z 

B ( 1  )  *2 

saw 

E  1  *2 

F  1  *2 

00000315 

69* 

N»*M 

00000330 

70* 

N4*K 

00000335 

71* 

1*1 

00000340 

72# 

K 1  *  2 

00000345 

73* 

1FCN.NE.0)  K 1 *N4 

00000350 

74* 

380  W*2 

00000355 

75* 

DO  386  L •  1  .  M 

00000360 

76* 

386  M*N*YCL>#qCL) 

00000365 

77* 

SCI!  *  14/W 1 

00000370 

78* 

IF t  I -N4 . GE . 0 . OR . I -M . GE . 0 >  GO  TO  428 

00000375 

79# 

E  1  *2 

00000380 

80* 

DO  398  L *  1  . M 

00000385 

81* 

398  El*El*XCLl«qCLl*QU> 

00000390 

82* 

E1*E1'W1 

00000395 

83* 

ACI+1)*E1 

00000400 

84* 

H*2 

00000405 

85# 

DO  416  L  *  1  .  M 

00000410 

86* 

V*<X(U-E11*Q(L)-F1»P(L) 

00000415 

87# 

PC  L ) *Q( L 1 

00000420 

88# 

Q  C  L  )  *  V 

00000425 

89# 

416  W-M*V«V 

,  00000430 

90# 

F  1  *W/M1 

00000435 

91* 

BCI*2)*F1 

00000440 

92* 

W1*W 

00000445 

9  3* 

1*1*1 

00000450 

94* 

GO  TO  380 

00000455 

95* 

428  DO  432  L*1 . 12, 1 

00000460 

96* 

432  GCLW 

00000465 

97# 

GC 1  )  *0 

00000470 

98* 

DO  464  J*1 ,H 

00000475 

99# 

SI  *2 

00000480 

100# 

DO  448  L*1.N 

00000485 

101* 

IFCL.NE.l)GCL)«GCL)-ACL)»GCl-n 

00000490 

102* 

IFCL.GT.2)GCl)*GCl)-BCl)#GCl-2) 

00000495 

103* 

446  Sl*Sl*SCL)»GCl> 

00000500 

104# 

UCJ)*$1 

00000505 
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105* 

L*N 

00000310 

106* 

00  460  12*2, N 

000005 1 S 

107* 

G(L)*G(L-1) 

00000520 

108* 

1  =  1-1 

00000525 

109* 

460 

CONTINUE 

00000530 

no* 

0(11=2 

00000535 

in* 

464 

CONTINUE 

00000540 

112* 

T*Z 

00000545 

113* 

DO  488  1  =  1, M 

00000550 

114* 

C  (  L  1  =2 

00000555 

115* 

J=N 

00000560 

116* 

DO  482  12=1, N 

00000565 

117* 

C!l)=C(t)*X!L)*U(J) 

00000570 

1  lfi* 

J  =  J-1 

00000575 

119* 

482 

CONTINUE 

00000580 

120* 

T3=Y(L1-C(l> 

00000585 

121* 

T  =  T  +T  3*T  3 

00000590 

122* 

488 

CONTINUE 

00000595 

123* 

IF(M.NE.N)  GO  TO  496 

00000600 

126* 

T  5  =  0 

00000605 

125* 

GO  TO  498 

0000061 0 

126* 

496 

T5*T/<M-N] 

0000061 S 

1  ?7» 

498 

Q7=l-T/(T9»(f1-l  1  ) 

00000620 

J  28* 

IFIM.NE.991G0T0789 

00000625 

129* 

ITEMP=N-1 

130* 

PRINT  500,ITEMP,Q7 

131* 

500 

FORMAT!/, ■  POLVFIT  OF  DEGREE  '.12.’ 

INDEX  OF  DETERM  =  • , 

132* 

41PE14.6) 

1  33* 

PRINT  516 

00000645 

1  34* 

516 

FORMAT!//, •  TERM' . 8X, 'COEFFICIENT' . 

/) 

135* 

DO  526  J  *  1 »  N 

00000655 

1  36* 

12* J-I 

00000660 

137* 

526 

PRINT  527,12, U(J) 

00000665 

138* 

527 

F0RMAT(I4,7X,1PE14.7) 

000006  70 

1  39* 

PRINT  530 

000006  75 

140* 

530 

FORMAT!//, ■  X- AC TUAL',12X,'Y- ACTUAL 

’  , 3X, ’ Y-CALC' ,8X, 'DIFF '  , 

141* 

49X  .  *  PCT-D1FF '  . /) 

142* 

DO  550  1=1, M 

00000690 

143* 

Q8*Y(L)-C(L ) 

00000695 

144* 

IF(CIL)-O.O)  540,548,540 

00000700 

145* 

540 

088=100 . 0*Q8/C( L ) 

00000705 

146* 

PRINT  551 . X! L 1 . V! L 1 ,C( l 1 ,08,088 

00000710 

147* 

GO  TO  550 

0000071 5 

148* 

548 

PRINT  552, X(l ) ,Y( l > ,C( U ,08 

00000720 

149* 

550 

CONTINUE 

00000725 

1  50* 

551 

FORMAT! 1P5E14 . 6 ) 

00000730 

151* 

552 

FORMAT! 1P4E14 .6 . 3X ,  • INF  INI TE • > 

152* 

555 

CONT INUE 

00000740 

153* 

T  55*  SORT ( T  5 ) 

00000745 

154* 

PRINT  553, T55 

00000750 

155* 

553 

FORMAT!/, IOX, 'STD  ERROR  OF  ESTIMATE 

FOR  Y  •  ' , 1PE14.6) 

1  56* 

C 

00000760 

15  7* 

C  THIS  IS  THE  END  OE  THE  PART  POLFT 

00000  765 

158* 

C 

00000770 

159* 

C 

TO 

ELIMINATE  THE  DIFFICULTIES  ASSOCIATED  WITH 

THE  USE  OF 

00000775 

140* 

C 

LARGE  NUMBERS  THE  INTERNAL  CALCULATIONS  OF  THIS 

PROGRAM 

00000780 

m* 

C 

ARE  OONE  IN  THE  UNITS 

LISTED  AS  FOLLOWS.  BUT 

THE 

UNITS 

00000785 

142* 

C 

OF 

THE  INPUT  DATA  ARE 

IN  INCHES 

00000790 

143* 

C 

00000795 

144* 

C 

UNITS  OF  MASS  -  K I P-SEC»»2/MI LL 

00000800 

145* 

C 

UNITS  OF  HEIGHT  - 

KIP 

00000805 

144* 

C 

UNITS  OF  DAMPING  - 

KIP-SEC/MItl 

00000810 

147* 

C 

UNITS  OF  DYNAMIC  STIFFNESS  -  KIP/MILL 

00000815 

144* 

C 

UNITS  OF  NONLINEAR 

COEFF.  B  -  KIP/MILL**! 

00000820 

149* 

C 

UNIT  OF  NONLINEAR 

COEFF.  E  -K  X P/M I L L**5 

00000825 

170* 

C 

00000830 

171* 

769 

CONTINUE 

00000835 

172* 

AG*  384000 . 0 

00000840 

171* 

DSMM  *  980 

00000845 

174* 

FDYN* 1 S . 0 

00000850 

175* 

CUR  *  1.0 

00000855 

174* 

CAS-DSMM/SO.O 

00000840 

177* 

CDS-DSMM/2S0 . 0 

00000845 

174* 

CZS«DSMM/SOO .0 

00000870 

179* 

AC  1  *  2  500 . 0 

00000875 

180* 

AC  2  *4000 . 0 

00000880 

181* 

ACl-9500.0 

00000885 

182* 

IF<DSMM-1S00)120,1 

20.122 

00000890 

181* 

120 

CONTINUE 

00000895 

184* 

C100.0E02 

00000900 

185* 

C11*-4,1282600E02 

00000905 

184* 

C12*1.2997111E02 

00000910 

187* 

Cll*-1 . 58I4I40E02 

00000915 

188* 

C14.5.0644847E01 

00000920 

189* 

C1S*-1 .1216281E01 

00000925 

190* 

C  14* 1 . 71  54711E00 

00000930 

191* 

C17.-1 . 8075704E-01 

000009J5 

192* 

08*1 .28975S5E-02 

00000940 

191* 

C19.-5.9370854E-04 

00000945 

194* 

Cl  10*1 .5899722E-05 

00000950 

195* 

C1U*-1 .6804100E-07 

00000955 

1  94* 

GOTO  124 

00000940 

197* 

122 

CONTINUE 

00000945 

198* 

00*1  .  J444749E04 

00000970 

199* 

Clt*-4.9517759E05 

00000975 

200* 

C  l  2  »  7 . 741  1409E02 

00000980 

201* 

CII*-4.4525920E01 

00000985 

202* 

C  1 4 *  3 , 197442 5E00 

00000990 

201* 

C15--1 .0314724E-01 

00000995 

204* 

C  14*  1  .  72S4088E-01 

00001000 

205* 

C17--1 . 224948BE-05 

00001005 

206* 

cia*o.o 

00001010 

207* 

C 1 9 *0 .0 

00001015 

208* 

Cll0*0.0 

00001020 

209* 

C  1 1  1  •  0 . 0 

00001025 

210* 

124 

CONTINUE 

00001010 

A-8 


2 1 1  * 

C1A»C10+C11*CDS+C12*CDS**2+C13*CDS**3+C14*CDS**4+C15*CDS**5 

00001035 

212» 

C1BbC16»CDS**6*C17»CDS*»7+C18»CDS**8+C19»CDS»*9 

00001040 

21  J» 

C1C*C110*CDS**10+C111*CDS»*11 

00001045 

214* 

C1»C1A+C1B*C1C 

00001050 

215* 

IF IDSMM-800.0) 128, 128,129 

00001055 

216* 

128 

CONTINUE 

00001060 

217* 

CZ0=5.8102535E-07 

00001065 

218* 

CZl=-9.3288026E-04 

00001070 

219* 

CZ2-2.5001039E-03 

00001075 

220* 

CZ3=-2 . 3495371E-03 

00001080 

221* 

CZ4=1 . 1630954E-03 

00001085 

222* 

CZ5=-3. 43001 15E-04 

00001050 

223* 

CZ6=6 . 3936609E-05 

00001095 

224* 

C27--7 . 7173709E-06 

00001 100 

225* 

CZ8- 6  - 0093755E-07 

00001105 

226* 

CZ9= -  2 . 9097831E-08 

00001110 

227* 

CZ10=7.9588319E-10 

00001  1  1  5 

228* 

CZ1 i=-9. 3862036E-12 

00001120 

229* 

GOTO  132 

00001125 

230* 

129 

CONTINUE 

00001130 

231* 

IFIDSMM- 3500) 140, 140, 142 

00001135 

232* 

140 

CONTINUE 

00001140 

2  3  3* 

CZ0=-5.2O14956EOO 

00001145 

2”  » 

CZ1-I -8290391EO0 

00001150 

2  35* 

CZ2=-2.8868848E-01 

00001155 

2  36* 

CZ332.6890909E-02 

00001160 

237* 

CZ4*-1 . 6353769E-03 

00001165 

238* 

CZ5-6 . 7947483E-05 

000011 70 

239* 

CZ6*-1 .9633744E-06 

00001175 

240* 

CZ7=3.9404340E-08 

00001180 

241* 

CZ8--5. 3807386E-10 

00001185 

242* 

CZ934. 7421674E-12 

00001190 

243* 

CZ10*-2.4601875E-14 

00001195 

244* 

CZ11-5.4258519E-17 

00001200 

245* 

GOTO  132 

00001205 

244* 

142 

CONTINUE 

00001210 

247* 

CZ0-6.1U  1277E02 

00001215 

248* 

CZ13-4.9661811E01 

00001220 

249* 

CZ2-1 . 7522450E00 

00001225 

250* 

CZ3* -  3 . 5075306E-02 

00001230 

251* 

CZ4*4. 3588585E-04 

00001235 

252* 

CZ5*-3.4449323E-06 

00001240 

253* 

CZ6  *  1 .4915432E-08 

00001245 

254* 

CZ7*-4 , 7199626E-1 1 

00001250 

255* 

CZ8-5. 7  3202  58E-1 4 

00001255 

256* 

CZ9*0 .0 

00001260 

257* 

CZ1030.0 

00001265 

258* 

CZ11*0.0 

00001270 

259* 

132 

CONTINUE 

00001275 

260* 

CC1A»CZ0+CZ1*CAS*CZ2*CAS**2*CZ3*CAS**3*CZ4*CAS**4+CZ5*CAS**5 

00001280 

261* 

CC1B3CZ6*CAS»*6*CZ7»CAS»»7*CZB*CAS**8-*CZ9*CAS«*9«CZ10*CAS**10 

00001285 

242* 

CC 1 C  3CZ 1 l*CAS**l 1 

00001290 

26  3* 

CC1«1000.0*(CC1A+CC1B+CC1C) 

00001295 

264* 

BC2-0.02 

00001300 

265* 

DEL-0.001 

00001305 

266* 

BC1-15.0 

00001310 

267* 

IF(DSMM-3500)144, 144, 146 

00001315 

268* 

144 

CONTINUE 

00001320 

269* 

CD0*-7. 9S87704E-05 

00001325 

270* 

CD1-6. 3085251E-04 

00001330 

27  J  * 

CD2--7.4214518E-06 

00001335 

272* 

CD3--1 . 1 141 749E-05 

00001340 

273* 

CD4-2. 35177S5E-06 

00001345 

274* 

CDS--2.0060899E-07 

00001350 

275* 

CD6-9.4187498E-09 

00001355 

276* 

CD7--2.6952086E-10 

00001360 

277* 

CD8-4.8360439E-12 

00001365 

2  78* 

CD9--5. 3232761E-14 

00001370 

279* 

C  D 1 0  =  3 . 2890826E-16 

00001375 

280* 

CD11--8. 7376943E-19 

00001380 

281* 

GOTO  148 

00001385 

282* 

146 

CONTINUE 

00001390 

283* 

CD0--1 . 7802618E01 

00001395 

284* 

CD  1  *  1 .2909806E00 

00001400 

285* 

CD2--3 . 9798780E-02 

00001405 

286* 

CD3-6 . 7678723E-04 

00001410 

287* 

CD4  * -6 . 8501 186E-06 

00001415 

288* 

CD5-4 . 1241 283E-08 

00001420 

289* 

CD6«-1 . 3668450E-10 

00001425 

290* 

CD7- 1 . 9232534E- 1 3 

00001430 

291* 

C  06 -0.0 

00001435 

292* 

CD9-0.0 

00001440 

293* 

CD10-0.0 

00001445 

294* 

CD  1 1  -  0 . 0 

00001450 

295* 

148 

CONT INUE 

00001455 

296* 

C01  »CD0*CD1*CAS*CD2«CAS»*2<-CD3*CAS**3  +  CD4»CAS**4  +  CD5*CAS*«5 

00001460 

297* 

C02»CD6»CAS«*6+CD7*CAS»«7*CD8*CAS**B+CD9*CAS**9+CD10«CA5**10 

00001465 

298* 

C03-C01 1»CAS»*1 1 

00001470 

299* 

C0-C01+C02+C03 

00001475 

300* 

IF(DSMN-3500)150, 150,152 

00001480 

301* 

150 

CONTINUE 

00001485 

302* 

C  20  -  1 . 7886330E-01 

00001490 

303* 

C21--6.4582961E-03 

00001495 

304* 

C22--1 .4994404E-03 

00001500 

305* 

C23-1 .9047721E-04 

00001505 

306* 

C24--5. 7220492E-06 

00001510 

307* 

C25--2.8715333E-07 

00001515 

308* 

C26-2.8929761E-08 

00001520 

309* 

C27--1 .0573124E-09 

00001525 

310* 

C28-2 . 1306976E-11 

00001530 

311* 

C29--2 . 4954492E-1 3 

00001535 

312* 

C210-1 . 5955587E-15 

00001540 

313* 

C21 l»-4 . 3182053E-18 

00001545 

314* 

GOTO  156 

00001550 

315* 

152 

CONTINUE 

00001555 

316* 

C20-1.8711536E03 

00001560 

317* 

C21--1 . J477721E02 

00001565 

318* 

C22*4. 1114309E00 

00001570 

319* 

C23=-6.8902750E-02 

00001575 

320* 

C24  =  6 . 856108JE-04 

00001580 

321* 

C25=-4.0530542E-06 

00001585 

322* 

C26  =  l . 318761 3E-08 

00001590 

323* 

C27--1 .8228129E-11 

00001595 

324* 

C28=0 .800000000000000 

00001600 

325* 

C29=0. 000 00 0000000000 

00001605 

326* 

C2 1 0=0 . 00000000000000 

00001610 

327* 

0211=0.00000000000000 

00001615 

328* 

156 

CONTINUE 

00001620 

329* 

C2A  =  C20  +  C21»CAS-t-C22*CAS»«2  +  C2  3»CAS«»3  +  C24«CAS»»4  +  C25»CAS«*5 

00001625 

3  30 * 

C2B=C26»CAS»»6*C27»CAS*«7*C28»CAS*»8+C29«CAS*»9 

00001630 

331* 

C2C=C210*CAS»*10*C211*CAS»»11 

00001635 

332* 

C2  =  1000 -0*(C2A+C2B+C2C I 

00001640 

333* 

I F  <  OSMM- 3  500  )  1 34 , 1  34 , 1  36 

00001645 

534* 

134 

CONTINUE 

00001650 

335* 

CK0=-7.8699233E-05 

00001655 

336* 

CK1=3.2234471E-01 

00001660 

337* 

C  K  2  =  1 .471  61  39E00 

00001665 

338* 

CK  3  =  -  1  .  1  769  34  3EOO 

00001670 

339* 

C  K4  =  4 . 9592895E-0 I 

00001675 

3*0* 

CAT5--1  .  3306910E-01 

00001 680 

341* 

CK6=2 . 3581 299E-02 

00001685 

342* 

CK  7*-2 . 7710718E-03 

00001690 

343* 

CK8=2. 1279022E-04 

00001695 

344* 

C  K  9  *  -  1 .02  38109E-05 

00001700 

345* 

CK10=2.7966863E-07 

00001705 

346* 

CKIl=-3.3061349E~09 

00001710 

347* 

GOTO  138 

00001715 

348* 

136 

CONTINUE 

00001720 

349* 

CK0=-3 . 1842085E05 

00001725 

350* 

C  K  1  =  1 .2468155E05 

00001730 

351* 

CK2=-2.0808714E04 

00001735 

352* 

CK3=1 .9071617E03 

00001 740 

353* 

CK4  =  - 1  .0375390E02 

00001745 

354* 

CK5=3. 349329 5E 00 

00001 750 

355* 

CK6=-5.9403607E-02 

00001755 

356* 

CK7=4 .4664367E-04 

00001760 

357* 

CK8=0 . 0 

00001765 

358* 

C  K  9  *  0 . 0 

00001 770 

359* 

C  K  1  0  =  0 . 0 

00001 775 

360* 

CK 1 1  =  0 . 0 

00001 780 

361* 

138 

CONTINUE 

00001 785 

362* 

CKAPl=CK0*CKl«CD5*CK2«C0S*»2  +  CK3»CDS«»3tCK4»CDS<i»4*CK5«CDS«»5 

00001790 

363* 

CKAP2  =  CK6»CDS*«6*CK7»C0Si<»7  +  CK8»CDS*»8*CK9»CDS«i<9*CK10»CDS»»10 

00001 795 

364* 

CKAP3*CK11»CDS»«11 

00001800 

365* 

CKAP»CKAP1+CK AP2+CKAP 3 

00001805 

366* 

CC2«(1.0*CKAP«CICAP»»2)/3.0 

0000181 0 

367* 

E0B« 1 . 3051737 

00001815 

368* 

C0B*0 . 00698505 

00001820 

369* 

E0A=1 . 1234066 

00001825 

■ 


370* 

371* 

372* 

373* 

374* 

375* 

376* 

377* 

378* 

379* 

380* 

381* 

382* 

383* 

384* 

385* 

386* 

387* 

388* 

389* 

390* 

391* 

392* 

393* 

394* 

395* 

394* 

397* 

398* 

399* 

400* 

401* 

402* 

403* 

404* 

405* 

404* 

407* 

408* 

409* 

410* 

411* 

412* 

413* 

414* 

415* 

414* 

417* 

418* 

419* 

420* 

421* 

422* 


C0A=0. 0103823 
FCT  1  *  1  .0 
FCT2-1 .0 
FCT  3= 1 .0 
FCT4= 1 . 0 
FREQ= 15,0 
FREQT=15.0 
FREQR=8 . 0 

IF ( QSMM- 3500 1140 .142,142 
140  CONTINUE 

BBFO=-5.2502975E-02 
BBF1=2.4290747E-01 
BBF2*-5. 3572445E-02 
BBF3=4.4347522E-03 
BBF4=-2 . 850 1 1 7E-04 
BBF5=-4.2239845E-04 
BBF4=8.4074538E-07 
BBF7=-3. 5904149E-08 
BBF8=7. 7332822E-10 
BBF9=-9 .4346145E-12 
BBF 10=4 • 2002737E-14 
BBF 1  1  *  -  1 . 7094942E-14 
GOTO  144 
142  CONTINUE 

BBF0=-1 . 4154112E02 
BBF 1 = 1 .2157421E01 
BBF2*-3. 7874985E-01 
BBF  3*4 . 3944447E-03 
BBF4*-4 . 3479454E-05 
BBF5*3. 7107308E-07 
BBF  4  *  - 1  .  185189  5E-09 
BBF  7= 1 . 59748 5QE-12 
BBF8=0 . 0 
BBF  9  *  0 . 0 
BBF10=0.0 
BBF 11*0.0 
144  CONTINUE 

BBFA=BBF0+BBF1*CAS*BBF2*CAS**2+BBF3*CAS**3+BBF4*CAS**4 
BBFB*BBF5»CAS*»S+BBF4*CAS**4*BBF7*CAS**7*BBF8*CAS»»8 
BBFC*BBF9*CAS*»9»BBF10*CAS»*I0*BBF11*CAS**11 
BBF  *BBFA*BBFB»BBFC 
IF ( DSMM-3500 ) 180,180,182 
180  CONTINUE 

E  E  F  0  *  -  1 . 4392954E-04 
EEF 1  =  3 . 6694350E-02 
E  E  F  2  =  -  7 . 5744972E-03 
E E F  3  =  9 . 18757  J8E-04 
EEF4*-7 . 1071 983E-05 
EEF5-3.4245438E-04 
EEF4*-1 . 2454023E-07 
EEF7*2.895374IE-09 
E  E  F  8* -4 . 4  780  J69E -  1  1 
EEF9=4.4053809E-I3 


00001830 

00001835 

00001840 

00001845 

00001850 

00001855 

00001840 

00001845 

00001870 

00001875 

00001880 

00001885 

00001890 

00001895 

00001900 

00001905 

00001910 

00001915 

00001920 

00001925 

00001930 

00001935 

00001940 

00001945 

00001950 

00001955 

00001940 

00001945 

00001970 

00001975 

00001980 

00001985 

00001990 

00001995 

00002000 

00002005 

00002010 

00002015 

00002020 

00002025 

00002030 

00002035 

00002040 

00002045 

00002050 

00002055 

00002040 

00002045 

00002070 

00002075 

00002080 

00002085 

00002090 


A-12 


42  3* 

EEF10=-Z.4905921E-15 

00002095 

424* 

£EF11=6.1533305E-18 

00002100 

425* 

GOTO  189 

000021 05 

426* 

182 

CONTINUE 

00002110 

427* 

IF (DSMM-4000 1  184  » 184 , 186 

000021 1 5 

428* 

1  84 

CONTINUE 

00002120 

429* 

EEF0=2 . 9869271E04 

00002125 

430* 

EEFl=-l . 980  5  5  76  E  03 

000021 30 

431* 

E  E  F  2  =  5  . 2478918E01 

00002135 

432* 

EEF  3  =  -  6 . 9458127E-01 

00002  140 

433* 

EEF4=4  .  591994 3E -03 

00002145 

4  34* 

E  E  F  5  =  -  1  .  21  31410E-05 

000021 50 

435* 

EEF6=0 . 0 

000021 55 

4  36* 

E  E  F  7  -  0  . 0 

00002 1 60 

4  3  7* 

EEF  8-0 . 0 

00002165 

438* 

E  E  F  9  =  0 . 0 

00002 1 70 

439* 

£  E  F  1  0  --  0 . 0 

000021 75 

440* 

EEF11=0.0 

00002180 

441* 

GOTO  189 

00002185 

442* 

186 

CONTINUE 

C  0  0  0  2  1  0 

443* 

E E  F 0  =  1 . 5881 14EQ2 

00002  1  5  5 

444* 

£  E  F  1  =  -  1 .05096  75E01 

0000220C 

445* 

EEF2*2.9687507E-01 

00002205 

446* 

t  tf  3  =  -4  .  6404242E-0  3 

0000221  0 

447* 

t  5  F  4  =  4  . 3351686E-05 

00002215 

448* 

EEF5--2 .4208222E-07 

00002220 

449* 

EEF6=7.4825315£-10 

0nn02226 

450* 

EEF7='9.8764637E-13 

00002230 

451* 

EEF8-0 . 0 

00002235 

452* 

E  E  F  9  -  0 . 0 

00002240 

453* 

EEF10*0.0 

00002245 

454* 

EEFU-0.0 

00002250 

455* 

189 

CONTINUE 

00002255 

456* 

EEFA-EEFQ+EEF 1 *CAS  +  E EF2 »C AS«*2  +  E E F 3*C AS**  3  +  E E F 4*C AS* *4 

00002260 

457* 

EEFB=EEF5*CA$»*5+EEF6*CAS**6+EEF7*CAS**7*EEF8«CAS«*B 

00002265 

4  58* 

EEFC  =  EEF9*CAS**9*EEF10*CAS*«10*EEFU*CAS**H 

00002270 

459* 

eef*eefa*eefb+eefc 

00002275 

460* 

FS=16.0 

0  0  0  0  2  2  S  0 

461  * 

PI  =  3  .  1  41  59265 

00002265 

462* 

PO I S 1  * 0  .  3 

00002290 

463* 

P0IS2  =  0.3 

00002295 

464* 

PQIS3  *  0.35 

00002300 

465* 

P0IS4  *  0.35 

00002305 

466* 

OMEGT  *  2  0*PI»FREQT 

000023 1 0 

467* 

OMEGR  =2 . 0*PI»FREQR 

00002316 

468* 

END  1  *  1.3»10»*6 

(•0002320 

469* 

EMD2  *  1.3«10«*6 

00002325 

470* 

END  3  *  4 . C  *  1 0*  *4 

00002330 

471* 

EMD4  *  10000 

00002335 

472* 

613 

EM04  *  EMD4+ i 000 

0  0  0  0  2  3  u  0 

473* 

GMD1 =  E  MD 1 / ( 2 . 0* ( 1 . 0  +  P0IS1 >  ) 

oaoo:3<«5 

4  74* 

GNU  2  - EMD2 / < 2 .0«(1.0*POIS2)) 

00002350 

4  75* 

G«D3=EMD3/( 2 . P*tl.0+P01S3)) 

00002355 

476* 

GMD4=EMD4/<2.0*( 1 .0+POIS4) > 

00002360 

477* 

EMOD 1  =  EMD 1 /I . 0E09 

00002365 

4780 

EM002=EMD2/1 . 0E09 

00002370 

479* 

EM0D3=EM03/1 .0E09 

00002375 

480* 

EM0D4-EMD4/1 .0E09 

00002380 

481* 

SHEAR  1 =GMDl/l . 0E09 

00002385 

482* 

SHEAR2=GMD2/1 . 0E09 

00002390 

485* 

SHEAR  3  =  GMD  5/ 1 . 0E09 

00002395 

484* 

SHEAR4=GMD4/1 . 0E09 

00002400 

485* 

Q1=(1.0-POIS1)/(1.0-2.0*POI511 

00002405 

486* 

Q2=( 1 .0-P01S2 )  /  ( 1 .0-2.0*P0IS2) 

00002410 

487* 

Q3=<l.O-PaiS3)/C1.0-2.0«PQIS3) 

00002415 

488* 

Q4*  ( 1 . 0-POIS4 )/( 1 . 0-2 . 0*P01S4  ) 

00002420 

489* 

Sl*< 1 .O-POISl )*Q1 

00002425 

490* 

S2* ( 1 . 0-POIS2 )*Q2 

00002430 

491* 

S3=  (  1  .  0-PCJIS3)*Q3 

00002435 

492* 

S4=(1.0-POIS4)*Q4 

00002440 

495* 

Hl=CC2*PI*SI*ACl/2.0 

00002445 

494* 

H2»CC2*PI*S2*(AC2-AC1 )/2.0 

00002450 

495* 

H3=CC2*PI*S3*(AC3-AC2)/2.0 

00002455 

496* 

HI  »  3.0 

00002460 

497* 

H2  =  3.0 

00002465 

498* 

H  3  =  7.0 

00002470 

499* 

HT1=H1 

00002475 

500* 

HT  2 -H  2 

00002480 

501* 

HT3=H3 

00002485 

502* 

H1=H1*1000 

00002490 

505* 

H2=H2»1000 

00002495 

504* 

H3-H3*1000 

00002500 

505* 

HH2-H1+H2 

00002505 

506* 

HH  3 -H 1 +H  2  +  H  3 

00002510 

507* 

ARG*H1*EM0D1+H2*EM0D2  +  H  3*EM0D3+EM0D4 

00002515 

508* 

715 

FORMAT (//1H  . 6X, 2HA1 , 12X.2HA2, 12X, 2HA3. 1 2X , 2HA4/ 1 P4E 14 . 6 ) 

00002520 

509* 

0MEG=2 . 0«PI*FREQ 

00002525 

510* 

S0=1 ,0/U(2) 

00002530 

511* 

ALPH1 =  U  ( 4 )*S0**5 

00002535 

512* 

A  l  PH  1  =  AL  PH  1  /  1 .414 

00002540 

515* 

ALPH2=U(6)*S0**9 

00002545 

514* 

ALPH2=ALPH2/1 .6378 

00002550 

515* 

W“16 . 0*CC1 

00002555 

516* 

VMSW/AG 

00002560 

517* 

655 

FORMAT (  /  #  *  WE.WR,FREQT’,/,1P3E14.6> 

518* 

SK0=VM*0MEG**2+SQRT( ( S0»«2 ) - < CO*OMEG ) **2 ) 

00002570 

519* 

520* 

5 

IFCFREQ-16. 0)227. 5»5 

SKOBVM*OMEG**2-SQRT((SO**2)-(CO*OMEG)**2) 

00002580 

521* 

227 

SK1BVM»0MEG«*2 

00002565 

522* 

SK2=SK0-SK  1 

00002590 

525* 

OMEGC=SQRT(SKO/VM) 

00002595 

524* 

FREQC»0MEGC/(2.0*PI) 

00002600 

525* 

FPSI=(FDYN»*2)/S0**4 

00002605 

526* 

AOYN® ( FOYN/SO) *( 1 .0+ALPHl*FPSI+ALPH2*FPSI*»2> 

00002610 

527* 

BB»-AIPH1/(C1*(SK0-VM»0MEG**2> ) 

00002615 

528* 

BB--ABS(BB) 

00002620 

A-lU 


529* 
530* 
531* 
532* 
533* 
5  34* 
535* 
536* 
537* 
538* 
539* 
540* 
54  1  * 
542* 
54  3* 
544* 
545* 
546* 
547* 
548* 
549* 
550* 
551* 
552* 
5  5  ■*  * 
5  54* 
555* 
556* 
557* 
558* 
559* 
560* 
561* 
562* 
56  3* 
564* 
565* 
566* 
567* 
568* 
569* 
570* 
571* 
572* 
573* 
574* 
575* 
576* 
577* 
578* 
579* 
580* 
581* 


ZZ-7./2  .*(C1**2)*(BB**2  )*(  1  SKO-VM*OMEG**2.)**2  1-AIPH2 
WWttC2*(SK0-VM*QMEG**2 ) 

VV  =  (Cl**2)*(BB**2'/(2. 0*C2*(SKO-VM*0MEG«*2)  ) 

EE  *  (  2Z/WI4  )  -VV 
E  E  3 ABS (EE) 

SK*SK0+C1*BB*BBF*< ADYN»*2 ) *C2 * E E * E E F* ( ADYN**4) 

STIF**SQRT  (  (SK-VM*OMEG**2  )#»2+(CO*OMEG)**2) 

PS=FS/(PI*AO**2) 

POIS=POISl 
QO*Q  1 

SHEAR=SHE AR 1 

DLOsPI*AO*( ( 1 .0-POIS)**2)/(2.0*(1 -0-2.0*P0I5) ) 

DLO=DLO*CC2 
IF(D10-H1 ) 6  >  6  *  2 1 0 

6  F  K  00 -2 . 0*PI*(AO**2)*Q1*SHEAR1/DLO 
F  KOO  =  F  K00*CC  2 

DL2=-BB*(DLQ**2 )/(4. 0*P I  * ( AO* *2 ) *QO*SHE AR  ) 

Dl 2 -Dl  2/CC2 
CL4=DL0*( DL2/DLO)**2 

E14  =  EE*(DLO**2)/C6.0*PI*(AO**2)  *00* SHEAR  ) 

EL4=E14/CC2 
D  L  4  2  C  1 4  -  E  L  4 

BBA=-4 . 0*PI*( AO**2)*Q1*SHEAR1*DL2/(DLO*«2) 

BBA=BBA*CC2 

nELTA=(DL2/DLO)»*2  -D14/DL0 

EEA-6.0*PI*(AO**2)*Q1*SHEAR1*DEITA/DLO 

EEA-EEA*CC2 

GOT0220 

210  DLO=CC2*<S2*AO*ACl*(Sl-S2))*PI/2 . 0 
JF(DLO-HH2)7,7,230 

7  FLO=2.0*P1*( AO**2)/DlO**2 

FK002FL0*CH1*(Q1 "SHEAR 1-Q2* SHEAR  2 )*Q2*SHEAR2*DLO) 

F  KOO  =  F  K00*CC2 

F  L  2  s  2 . 0*H1*(Q1*SHEAR1-Q2*SHEAR2)+Q2*SHEAR2*DLO 
DL2=-BB*(DLO**3)/(4.0*PI*(AO**2)*FL2) 

DL2=DL2/CC2 

FL4-3.0*Hl*(Qi*SHEAR)-Q2*SHEAR2)+Q2*SHEAR2*Dlb 

D14*< (DL2**2)*FL4/DL0-EE*(DL0**3>/<6 . 0*CC2*P I *A0**2 ) J/FL2 

QG 1 2  =  Q 1 *SHEAR1~Q2*SHEAR2 

BBA=-4.0*PI*(AO**2)*DL2*(2.0*H1«QG12*Q2*SHEAR2*DLO)/CDLO**3) 
BBA  =  BBA*CC  2 

RHO*3.0*((D12/DIO)**2)-2.0*D14/DLO 

DELTA-(DL2/DLO)**2-DL4/DLO 

EEA=6.0*PI*(AO**2)*(RHO*H1*QG12<DEITA*Q2*SHEAR2*DLO)/(DIO**2> 

EEA»E  E  A*CC2 

GOTO220 

230  DLO=CC2*(S3*AO+AC2*(S2“S3)+ACl*(Sl~S2))*PI/2 . 0 
IF (DLO-HH3)8*8»240 

8  QG1 3*Q1 "SHEAR 1-Q3* SHEAR  3 
QG23  =  Q2*SHEAR2’"03*SHEAR3 
FLO-2. 0*PI*(AO**2)/DLO**2 

FK00*CC2»FL0*(H1*QG1 3+H2*QG2 3+Q 3*SHE AR 3*DL0 ) 
GL2=2.0*(H1*QG13+H2*QG23)+Q3*$HEAR3*DLO 


00002625 

00002630 

00002635 

00002640 

00002645 

00002650 

00002655 

00002660 

00002665 

00002670 

00002675 

00002680 

00002685 

00002695 
00002700 
00002705 
00002710 
00002715 
00002720 
00002725 
00002730 
00002735 
000C2740 
00002  745 
00002750 
00002755 
00002760 
00002765 

00002775 
00002780 
00002785 
00002790 
00002795 
00002800 
00002805 
00002810 
0000231 5 
00002820 
00002825 
00002830 
00002835 
00002840 
00002845 
00002850 
00002855 

00002865 

00002870 

00002875 

00002880 

00002885 


A-.15 


582k 

GL22-GL2/2.0 

00002890 

-  r  *  ** 

585k 

DL2-“BB*(DLO**3)/(4.0*PI*(AQ**2)*CC2*GL2) 

00002895 

584k 

FL4-3.0*(H1*QG13+H2*QG23)+Q3*SHEAR3*DLC 

00002900 

585k 

DL4-((DL2**2)*FL4/DLO-EE*(DLO**3)/L6.0*PI*CC2*AO**2) 1/6L2 

00002905 

586* 

BBA*-4.0*P1*<AO**2)«DL2«CC2»GL2/OLO»»3 

00002910 

587k 

RHD*3.0«((DL2/DLQ)**2)-2.0*DL4/DLO 

00002915 

588k 

DELTA- (0L2/DL0)«»2-DL4/DL0 

00002920 

589k 

EEA1-6.0»P1*(AO**2)*CC2/DLO**2 

00002925 

590k 

EEA>EEAl«<RHO*(Hl*QG13*H2*QG23)+DELTA*Q3*SHEAR3«DLO> 

00002930 

591k 

GOTO220 

00002935 

592k 

240  DLO=CC2*<S4*AO+AC3*(S3-S4)+AC2»(S2-Sl)+ACl*CSl-S2> )«PI/2.0 

00002940 

59  3k 

DLOO--1 .6182520E-01 

00002945 

594k 

DL01-2.9406204E01 

00002950 

595k 

DL02--1 .5550641E01 

00002955 

594k 

DL03-1 . 1928522E01 

00002960 

597k 

DLO4--4.45970B2E00 

00002965 

598k 

DLO5-8.8599714E-01 

00002970 

599k 

DL06--1 .0401599E-01 

00002975 

600K 

DL07-7.6323389E-03 

00002980 

[ 

601k 

DL08--3.5492892E-04 

00002985 

602k 

DL09-1 .0179406E-05 

00002990 

603k 

DL010--1.6440288E-07 

00002995 

604K 

DL01 1-1 . 1443959E-09 

00003000 

605k 

DLOA-DLO0+DLOl*CDS+DLO2*CDS**2+DL03*CDS**3+DLD4*CDS**4 

00003005 

606k 

DL0B-DL05*CDS**5-DL06*CDS**6+DL07*CDS*»7+DL08*CDS**8 

00003010 

607* 

DLOC=DL09*CDS**9+DL010*CDS**10+DL011*CDS**11 

00003015 

608* 

DLO-IOOO . 0*( DLOA-DLOB+DLOC ) 

00003020 

1 

609* 

ALPP-1CKAP-1 .0)»AO/DLG 

00003025 

610* 

FADO-1 .0+ALPP*DLO/AO*( <ALPP*DL0/A01*»2>/3. 0 

00003030 

611* 

FAN1-1 . 0+ALPP»Hl/AO+( < ALPP«H 1/AO ) »*2 1/3 . 0 

00003035 

612* 

FAB2-H1»HH2*H1*»2+HH2»«2 

00003040 

613* 

FAN2-1 . 0+ALPP«(Hl+HH2)/AO+< ( AL PP/AO 1 »«2 ) *F AB2/3 . 0 

00003045 

614* 

FAB3-HH2*HH3+HH2*»2>HH3**2 

00003050 

615* 

FAN3-1 . 0+ALPP*(HH2*HH3»/A0*( < ALPP/AO > **2 > »FAB3/3 . 0 

00003055 

616* 

FAB4*HH3*DL0+HH3**2+DL0**2 

00003060 

617* 

FAN4-1 ,0+ALPP*(HH3+DLO)/AO+( ( AL PP/AO ) *»2 ) *FAB4/3 . 0 

00003065 

618* 

FAC1-FAH1/FAD0 

00003070 

619* 

FAC2-FAN2/FA00 

00003075 

620* 

FAC3-FANS/FAOO 

00003080 

621* 

FAC4-FAN4/FAD0 

00003085 

622* 

QG14»Q1*SHEAR1-Q4*SHEAR4 

00003090 

623* 

QG24»Q2*SHEAR2-Q4*SHEAR4 

00003095 

624* 

QG34-Q3*SHEAR3-Q4»SHEAR4 

00003100 

625* 

FLO-2. 0*PI*(A0**2)/DL0**2 

00003105 

626* 

FKOO-CC2*FLO*(H1*QG14*FAC1+H2*QG24*FAC2+H3*QG34*FAC3) 

00003110 

627* 

FKOO-FKOO+Q4*SHEAR4*DLO-FAC4 

00003115 

628* 

GL2»2,0*(H1*QG14*FAC1+H2*QG24*FAC2+N3*QG34«FAC3) 

00003120 

629* 

GL2-GL2+Q4*SHEAR4*DL0*FAC4 

00003125 

630* 

DL2*-BB*(DLO*»3)/(4.0«PI*< AO* *2  >*CC2*GL2) 

000031 30 

631* 

FL4-3.0*(H1*QG14*FAC1+H2*QG24*FAC2+H3*OG34*FAC3) 

00003135 

632* 

FL4»FL4+Q4*SHEAR4*DL0*FAC4 

00003140 

6,3  3* 

DL4-((DL2*«2)*FL4/Dl0-EE«(DL0»»3)/(6. 0»PI«CC2»AO»*2 ) 1/GL2 

00003145 

*.34» 

BBA*-4.0»PI»(AO»»2)»D12*CC2»GL2/DLO**3 

00003150 

1 

A-l  6 

i 

f 

635# 

RHO-3. 0»< (DL2/OLO>»»2  > -2 . 0#DL4/DL0 

00003155 

636# 

DELTA=(DL2/DLO)##2-DL4/DLO 

00003160 

637# 

E£A1=6.0»PI«(AO#»2)»CC2/DLO#»2 

00003165 

6  38# 

EEA2=RH0»IH1#QG14#FAC1+H2#QG24»FAC2+H3#QG34#FAC3) 

00003170 

639# 

EEA2  =  EEA2#DELTA«<34»SHEAR4»DLO»FAC4 

00003175 

640# 

EE A=EE A1 »EEA2 

00003180 

641# 

220 

CONTINUE 

00003185 

642# 

ARG2=H1#EMOD1*H2#EMOD2+H3*EMOD3#IDLO'HH3)#EMOD4 

00003190 

643# 

c 

00003195 

644# 

c 

THE  FOLLOWING  GIVES  THE  CALCULATION  OF  THE  STATIC  ELASTIC 

00003200 

645# 

c 

DISPLACEMENT  OF  THE  PAVEMENT  SURFACE 

00003205 

646# 

c 

00003210 

647# 

2PC1 )*-l .  Q*FS 

00003215 

648# 

ZP( 2) =FKOO 

00003220 

645  t 

2P(3)=0.0 

00003225 

650# 

ZP ( 4 )  =  BB A 

00003230 

651# 

2P( 5 ) -  0 . 0 

00003235 

652# 

ZP( 6 )  *  E  E  A 

00003240 

653# 

CALlDOWNH(ZP,5,RR,CR) 

00003245 

654# 

680 

FORMAT (// 5 (4H ROOT, 12, 5X, 1P2E20. 7/)// 

00003250 

655# 

&  5X  , 3H-FS , 5X  , 1PE2C . 7/5X . 4HF KOO , 4X , 1PE20.7/13X.1PE20.7/ 

00003255 

656# 

4  5X, 3HBBA, 5X, 1PE20 . 7/1 3X,  1  PE  2  0 . 7/5X  ,  3HE  E  A  ,  5X',  i  PE  2  0.7) 

00003260 

657# 

XE  =  0 . 0 

00003265 

658# 

D02  2 1 K  =  1 , 5 

00003270 

6' 

2r'CR(K>)221, 15,221 

660# 

I  5 

IFCRR(K)-XE)221,221,16 

661# 

16 

XE  ~RR ( K ) 

00003285 

662# 

c 

00003290 

663# 

221 

CONTINUE 

00003295 

664# 

VME=VM+BC2#SK0#< (BCl-FREQT )/0MEGT)#*2 

00003300 

665# 

WE  *  CC 1 

00003305 

666# 

VMR=VM+BC2*SK0#( ( BC1-FREQR )/OMEGR )**2 

00003310 

667# 

MR=VMR*AG/16.0 

00003315 

668# 

OMEG=OMEGT 

00003320 

669# 

R  B  A  =  4 . 0 

00003325 

670* 

RE  A  =  (  1 .0-CUR)#180.0+CUR#17.0 

00003330 

671# 

THETAS(4.0/3.0)»C1*£BF 

00003335 

672# 

ETA«(8.0/5. 0)*C2*EEF 

00003340 

673# 

SK0T=FK00+3 . 0*RBA*BBA#(XE«*2 )+5. Q*REA«EEA#(XE*»4> 

00003345 

674# 

CCC=CO 

00003350 

675# 

SOT  =  SQRT  (  (SK0T-VME*0MEG#*2  )**2*<CCC*OMEG)«*2  ) 

00003355 

676# 

SKTsSK0T+Cl*BBA#BBF*(ADYN##2)+C2#EEA#EEF#(ADYN##4) 

00003360 

677# 

STIFT«SQRT((SKT-VME*OMEG**2)**2+(CCC*OMEG>**2) 

00003365 

678# 

FDYNT  =FDYN 

00003370 

679# 

FP5IT=(FDYNT*«2 )/S0T#«4 

00003375 

680# 

ADYNTMFDYNT/50T  )*<  1 . 0 ♦ A l PH  1  * F PS  I T ♦ Al PH 2 « F PS I T« # 2  ) 

00003380 

681# 

OMETR=SQRT(SKOT/VMR ) 

00003385 

682# 

0M=  CC1*BBF*BBA* ( ADYN«*2 ) ♦C2#EEF*EEA#( ADYN*«4 ) 1/VHR 

00003390 

683# 

OMEGTR=SQRT(OMETR*#2+OM-2 .  0*<C0/( 2 . 0«VMR> >*«2) 

00003395 

684* 

FREQTR=OMEGTR/(2.0*PI > 

00003400 

685# 

VMET=VM+BC2»SK0T«(  (  BC  1  - F R  E QT  ) /OME  GT  )  #* 2 

00003405 

686# 

WET*VMET#AG/16.0 

00003410 

687# 

VMRT=VM*BC2»SK0T*( ( BC 1 -F RE QTR ) /OME GTR ) **2 

00003415 

A-17 


688* 

689* 

690* 

691* 

692* 

693* 

694* 

695* 

696* 

697* 

698* 

699* 

700* 

701* 

702* 

703* 

704* 

705* 

706* 

707* 

708* 

709* 

710* 

711* 

712* 

713* 

714* 

715* 

716* 

717* 

718* 

719* 

720* 

721* 

722* 

723* 

724* 

725* 

726* 

727* 

728* 

729* 

730* 

731* 

732* 

733* 

734* 

735* 

736* 

737* 

738* 

739* 

740* 


WRT*VMRT«AG/16.0 

SOTT*SQRT<  <SKOT-VMET*OMEGT*»2)»*2+<CCC*QMEGT )*»2) 
ALPHT1*-BBA»C1»*SI*0T-VMET»0MEGT**2> 

MH*C2**SKOT-VMET*OME6T»»2) 

VV*(Cl»»2)»(BBA»»2)/<2.0»C2*tSKOT-VHET*OHEGT«»2)) 

ZZ**EEA+VV) *WW 

ALPHT2»7./2.*(C1*«2)*(BBA**2)*( l SKOT-VMET»ONEGT*»2  >**2)-ZZ 
FPSITT*(FD¥NT**2)/S0TT«*4 

ADYNTT»*FDYNT/SOTT)»* 1 . 0+ALPHTl«FPSlTT+ALPHT2*FPSITT**2 > 

SKTT*SK0T+C1»BBF*BBA»(A0YNT**2)+C2«EEF»EEA«(ADYNTT»*4) 

STIFTT«S0RT* *SKTT-VMET»0MEGT*»2 >**2+<CCC»0MEGT >»*2 > 

DEAN-FDYNT/ADYNTT 

DFDYN»FDYNT +DE  L 

DFPIST**DFDYN»«2)/SOTT*»4 

DADYN*  < DFDYN/SOTT ) **1.0+ALPHT1»DFPIST*ALPHT2»DFPIST*»2) 
DSM«DEL/(DADYN~ADYNTT> 

DSMT* 1 000 . 0*DSM 
DE  LDSM*DSM-DSMM 
IF*DSMM-DSMT)633, 733.733 
733  CONTINUE 

STIF-STIF*1000. 

ST1FT*STIFT«1000. 

HRI TE ( 6 1 40  ) 

40  FORMAT ( '  STIF  ST1FT  DSNN  DSN’, 

»•  T  •  » 

PRINT551 iSTIF  »STIFT  >DSNNi DSNT 
URITE(6.41> 

41  FORMAT  < •  EMOl  EHD2 

PRINT551.EMD1.EM02.EMD3.EMD4 
WRITE ( 6  >42  ) 

42  FORMAT* •  GMD1  GMD2 

PRINT551 »GMD1 »GMD2*GM03  >GMD4 
MR ITE ( 6  >  43  > 

43  FORMAT*'  POIS1  P0IS2 

PR1NT551 »  POIS1 #  P0IS2 ■ POIS3 , P0IS4 
UR  1 TE ( 6  > 44 ) 

44  FORMAT* •  HT1  HT 2 

PRINT551 #HT1 »HT2  »HT3 

THIS  PART  GIVES  A  SECOND  METHOD  OF  CALCULATING  THE  STATIC 
ELASTIC  DISPLACEMENT  OF  THE  PAVEMENT  SURFACE 

ZP(2)«SKO 
ZP*4)»-2.0»BB 
ZP<S)*-10.0»FS/S0*EE 
ZPt  6 ) *-4 . Q»EE 
CALLDOWNH (ZP>5>RR>CR) 

XEE*0 . 0 
D0223K  *  1 »  5 
IF(CR(K))223,19.?23 
19  IF(XEE-RR*K1)21.223.223 

21  IF(RR(K))223.223,22 

22  XEE'RR ( K ) 


EMD5  EMD4 '  ) 

GMD3  GHD4 ' > 

P0IS3  P0IS4 ' ) 

HT3 '  ) 


00003420 

00003425 

00003430 

00003435 

00003440 

00003445 

00003450 

00003455 

00003460 

00003465 

00003470 

00003480 

00003485 

00003490 

00003495 

00003500 

00003505 

00003510 

00003515 

00003520 

00003525 


00003540 


00003550 


00003560 


00003570 


00003580 

00003585 

00003590 

00003595 

00003600 

00003605 

00003610 

00003615 

00003620 

00003625 

00003630 

00003635 


A-18 


741* 

C 

00003660 

742* 

223 

CONTINUE 

0000  3665 

74J* 

SKOO*FS/XEE-BB*!XEE**2)-EE»!XEE**4) 

00003670 

744* 

STOP 

00003680 

745* 

570 

URITE(6.45) 

744* 

45 

FORMAT! 'PROGRAM  SIZE  LIMIT  IS  100  DATA  POINTS 

.  •  ) 

747* 

GO  TO  628 

00003690 

748* 

576 

WRITE!6,46> 

749* 

46 

FORMAT! 'ELEVENTH  DEGREE  IS  THE  LIMIT.') 

750* 

592 

FORMAT ( F6 . 0 ) 

00003750 

751* 

590 

READ! FNAME  ,  592  ) AO 

00003755 

752* 

N=  5 

00003765 

753* 

X!1>=0.0 

754* 

Y! 2 ) *0 . 0 

755* 

D0600I=2,98.2 

00003775 

756* 

593 

FORMAT ! F4 . 0, IX, F6 . 2) 

00003780 

757* 

RE AD! F NAME, 59 3, END* 4 02 )X! I ),Y! I) 

00003785 

758* 

XII  +  1 ) =-X! I ) 

00003795 

759* 

V<Ui)-V(I) 

00003800 

760* 

600 

CONTINUE 

00003605 

761* 

602 

M*  I  - 1 

00003810 

762* 

GO  TO  36 

00003815 

763* 

616 

ITEMP=N-1 

764* 

PRINT  617.ITEMP 

76' 

61  7 

FORMAT!/'  TOO  FEW  POINTS  FOR  FITTING  DEGRE 

E  '  , 

14) 

766* 

628 

WRITEI6.47) 

767* 

47 

FORMAT! 'STOP ' ) 

768* 

STOP 

769* 

END 

770* 

C 

SUBPROGRAM  ZORP 

00003840 

771* 

C 

00003845 

772* 

c 

00C03850 

773* 

r 

THE 

:  SUBPROGRAM  ZQRP2  CALCULATES  THE  ROOTS  OF 

THE 

FIFTH  ORDER 

00003855 

774* 

c 

POLYNOMIAL  THAT  CONNECTS  THE  STATIC  LOAD  AND 

THE 

STATIC 

00003860 

775* 

c 

ELASTIC  DISPLACEMENT  OF  THE  PAVEMENT  SURFACE 

DIRECTLY  BENEATH 

00003865 

776* 

c 

THE 

■  VIBRATOR  BASEPLATE 

00003870 

777* 

c 

ZORP2 

00003875 

778* 

c 

ROUTINES  FOR  SOLVING  POLYNOMIALS 

00003880 

779* 

SUBROUTINE  POLY!N,A,R,C,PR,PC,RHO,PHI ) 

00003885 

780* 

DIMENSION  A !  9 9 9 9  ) 

00003890 

781* 

IF!RHO)10,5, 10 

00003895 

782* 

5 

R  *  A  !  1  ) 

00003900 

783* 

C*0. 

00003905 

784* 

PR  =  A ! 2  ) 

00003910 

785* 

PC*0  . 

00003915 

786* 

RETURN 

00003920 

787* 

10 

Vl*l  . 

00003925 

788* 

o 

II 

> 

00003930 

789* 

R«A! 1 ) 

0000  39  35 

790* 

C*0. 

00003940 

791* 

PR  *  0  . 

00G0  3945 

792* 

PC*0  . 

00003950 

793* 

WI*RHO»COS!PHI ) 

0C003955 

) 


794* 

M2*RHQ*SIN(PHI) 

00003940 

795* 

NN*N*1 

00003945 

794* 

00  20  1*2, NN 

00003970 

797* 

T1*W1«V1-W2»V2 

00003975 

798* 

V2*W2«V1+W1*V2 

00003980 

799* 

VI  *T  1 

00003985 

800* 

R*R+A( I )«V1 

00003990 

801* 

C*C+A( I )«V2 

00003995 

802* 

PR*PR+A( I )*( I  - 1 )*V1 

00004000 

80  3* 

20 

PC*PC*A( I )*C 1-1 )*V2 

00004005 

804* 

PR*PR/RH0 

00004010 

805* 

PC-PC/RHO 

00004015 

804* 

5001 

RETURN 

00004020 

807* 

END 

00004025 

808* 

SUBROUTINE  ARCTA(X,Y.  ANGLE ) 

00004030 

809* 

PI*3. 14159265 

00004035 

810* 

IF(X)10,30,20 

00004040 

811* 

10 

ANGLE*ATAN(Y/X)+PI*SIGN(1 . , Y) 

00004045 

812* 

RETURN 

00004050 

813* 

20 

ANGLE  *ATAN( Y/X ) 

00004055 

814* 

RETURN 

00004040 

815* 

30 

1F(Y)40,40,S0 

00004045 

814* 

40 

ANGLE  --PI/2 . 

00004070 

817* 

RETURN 

00004075 

818* 

50 

ANGLE-PI/2. 

00004080 

819* 

RETURN 

00004085 

820* 

40 

ANGLE-0 . 

00004090 

821* 

RETURN 

00004095 

822* 

END 

00004100 

823* 

SUBROUTINE  OOWNH ( A , NAR , RR , CR ) 

00004105 

824* 

DIMENSION  A(  9999). RR (9999), CR< 9999), Q( 101 ),B(3> 

00004110 

825* 

J-0 

00004115 

824* 

N-NAR 

00004120 

827* 

NPL 1 -N+ 1 

00004125 

828* 

ANPP*  A ( NPL 1 ) 

00004130 

829* 

DO  102  I - 1 , NPL 1 

00004135 

830* 

IF  (Ad  )  )101, 102. 103 

00004140 

831* 

102 

CONTINUE 

00004145 

832* 

103 

C*A8S( A( I ) /A ( NPL 1  )  ) 

00004150 

833* 

LU* 120 

00004155 

834* 

L  L  *- 1 20 

00004140 

835* 

IF(C-2.«»LU)100.100,101 

00004145 

834* 

:oo 

IF(C-2 .«»LL  > 101 ,105, 105 

00004170 

837* 

101 

NAR*-NAR 

00004175 

838* 

GO  TO  5001 

00004180 

839* 

105 

1 1  * ( LU  +  LL ) /2 

00004185 

840* 

IF(C-2.»«II >110.130. 109 

00004190 

841* 

109 

L  L  *  1 1 

00004195 

842* 

GO  TO  111 

00004200 

843* 

110 

LU*  I  I 

00004205 

844* 

111 

IF(tU-LL-l )S001 ,112,105 

00004210 

845* 

112 

IB-I1/N 

00004215 

844* 

1F(1B)114.120.U4 

00004220 

A-20 


847* 
848* 
849* 
850* 
851* 
852* 
853* 
854* 
855* 
856* 
857* 
858* 
859* 
660* 
861* 
862* 
863* 
864* 
865* 
866* 
867* 
668* 
869* 
870* 
87  1  * 


> 

\ 


8  72* 
““3* 
j  ,  4* 
875* 
376* 


B77* 
B  78* 
379* 
380* 
381* 
382* 
883* 
384# 
385# 
866* 


114 

115 
120 
121 
201 
206 

211 


221 


301 
401 
42  1 
431 
44  1 


461 


501 
52  1 


541 


601 


1011 


868* 

889* 

890* 

891# 

892# 

893# 

894* 

895# 

896* 

897* 

898* 

899# 


1021 


1041 

1061 

1071 


DO  115  I=1,NPL1 
11=1-1 

A(I >*A< I  )*(2.*#(II#IB) ) 

DO  121  J  1  *  1  »  NP L 1 
ACJ1  )  =  A<  JU/ACNPll) 

1 F ( N ) 200 1 ,2001 ,206 
IF(A( 1 ) )301 ,211 , 301 
J  =  J  +  1 
RR ( J ) *0 . 

OR ( J ) s0 . 

DO  221  J  1  -  1  ,N 
AC J1 )*AC Jl+1) 

N  =  N-  1 
GO  TO  201 

XF(N~2)601 , 501,401 
CALL  GRAD( A . N , X , Y ) 

IF(ABS(Y)-AB5(X#1 .E-4)  )4 31  ,431 ,441 
Vs 0  . 

J  J  ♦  1 
RR  C  J  )  =X 
CR  (  J  )  =  Y 

I F ( Y)461 ,1021,461 
J=J  +  1 
R  R  <  J  )  =  X 
C  R  (  J  )  *  -  Y 
GO  TO  1011 

0ISCsA(2)*«2“4.«AC 1 ) 

IF(DISC)521 .541,541 
Y=5QRT  C -DISC )/2 . 

X  =  -AC  2  )/2 . 

GO  TO  421 
J  =  Jd 

RR(J)=(-A(2)^SQRT(DlSC))/2. 

CR ( J  )  =0 . 

GO  TO  1021 
J=J*1 

R  R ( J )  A  (  1  ) 

CR ( J ) *  0 . 

GO  TO  2001 
B(l) =X#*2*Y*#2 
B( 2  )  *-2 . *X 
B  (  3  1  *  1  . 

NB=  2 

GO  TO  1041 
B( 1  )  * -RR ( J  ) 

B( 2  )  =  1  . 

NB  =  1 

CALL  DIVCA . B,N,NB,Q) 

DO  1061  J 1 = l , N 
A  (  J  1  )  =  Q  C  J  I  ) 

1FCCRC J)  >  1081 .1071 , 1081 
N  =  N  -  1 
GO  TO  201 


00004225 
00004230 
00004235 
00004240 
00004245 
00004250 
00004255 
00004260 
00004265 
00004270 
00004275 
00004280 
00004285 
00004290 
00004295 
00004300 
00004  305 
00004310 
0000431 5 
00004320 
00004325 
00004330 
00004335 
00004  340 
00004345 
00004350 
00004355 
00004360 
00004365 
00004370 
OOD04375 
00004380 
00004  385 
00004390 
00004395 
00004400 
00004405 
00004410 
000044 1 5 
00004420 
00004425 
00004430 
00004435 
00004440 
00004445 
00004450 
000044 ‘5 
00004460 
00004465 
00004470 
00004475 
00004480 
00004485 


A- 21 


9 00* 

1081 

N*N-2 

00004490 

90 1  * 

GO  TO  201 

00004495 

902* 

2001 

IF(IB>2002. 2005, 2002 

00004500 

903* 

2002 

DO  2000  I  -  1 . NAR 

00004505 

904* 

RR ( I ) =RR( I )*t 2 .«*( 1B>  > 

00004510 

90S* 

2000 

CR<  1  )  -Cltt  I  )*(<..»*(  IB)  ) 

00004515 

904* 

2005 

NP 1 »NAR+ 1 

00004520 

907* 

00  2011  I  *  2  .  NP 1 

00004525 

90S* 

2011 

At  I  ) =  0 . 

00004530 

909* 

A  ( 1  )  *  1 . 

0000453S 

910* 

NA~0 

00004540 

911* 

J  =  1 

00004545 

912* 

2021 

IFtCRt J ) >2041 , 2061 .2041 

00004550 

91  J* 

2041 

NB  =  2 

00004555 

914* 

B( 3 )  =  1  . 

00004560 

915* 

B<2)=-2.*RR( J) 

00004565 

916* 

B(  1  >  =  RR(  J  )*»2*CR(  J  )*»■» 

00004570 

917* 

J  -  J  *2 

00004575 

918* 

GO  TO  2081 

00004580 

919* 

2061 

NB*1 

00004585 

920* 

B(2)«l  . 

00004590 

921* 

BU)«-RR(J) 

00004595 

922* 

J’J  +  1 

00004600 

923* 

2081 

CALL  MTALGD(A.NA.B.NB.Q) 

00004605 

924* 

NA«NB*NA 

00004610 

92S* 

NAPL 1 -NA* 1 

00004615 

926* 

DO  2091  1=1. NAPL 1 

00004620 

927* 

2091 

ACI)»Q<I> 

00004625 

928* 

IF ( NA-NAR )  2021.  3001.3001 

00004630 

929* 

3001 

DO  3011  J 2 *  1 .NPL1 

00004635 

930* 

3011 

A< J2)*A< J2)*ANPP 

00004640 

931* 

5001 

RETURN 

00004645 

932* 

END 

00004650 

933* 

SUBROUTINE  GRAD(A.N.XZ.YZ) 

00004655 

934* 

DIMENSION  A(9999),X(3).Y(3).RP(3) , CP ( 3 ; . RHO ( 3 ) . PHI C  3 ) 

00004660 

935* 

DIMENSION  ABSP(3).PR(3).PC(3) 

00004665 

936* 

PIO.  14159265 

00004670 

937* 

MTST  a  1 

00004675 

938* 

101 

XZ*0.0 

00004680 

939* 

YZ  *  1  .0 

00004685 

940* 

DZ*2. 

00004690 

941* 

RHOZ -  1  . 

00004695 

942* 

PHIZ*PI/2 . 

00004700 

943* 

201 

CALL  P0LY(N,A,RZ.CZ,PRZ,PCZ,RH0Z,PHIZ) 

00004705 

944* 

221 

SU*SQRT(PRZ**2+PCZ**2) 

00004710 

945* 

ABSPZ'SORT<RZ*»2+CZ*»2) 

00004715 

946* 

U*2 . »ABSPZ*SU 

00004720 

947* 

PS  I = AT  AN  <  U  ) 

00004725 

948* 

TOP*RZ»PCZ-CZ«PRZ 

00004730 

949* 

BOT*-( RZ*PRZ+CZ*PCZ) 

00004735 

950* 

CALL  ARCTA1BOT, TOP, THETA) 

00004740 

951* 

COSI*COS(THETA*PHIZ) 

00004745 

952* 

SINE*S1N(THETA+PHIZ) 

00004750 

953* 

lF(ABSP2)30n, 5001, 300 

00004755 

956* 

300 

IF (Sf  >  301 , 501 , 301 

00004760 

955* 

301 

I F ( RHQZ 1 32 1 .601,321 

00004765 

956* 

321 

IF(ABSPZ/(RHOZ»SU)-l .£-7)5001 , 5001,701 

00004770 

957* 

351 

1F(ABSP2/'IRHOZ*SU)-10.*»<-MTST)  1801 ,801 

,401 

00004775 

958* 

601 

D Z*DZ/8.0 

0  0  0  04 780 

9 59* 

IM  =  Q 

00004785 

960* 

DO  631  1=1,3 

00004790 

961* 

DZ=2 . *0Z 

00004795 

962* 

X<  I  )=XZ  +  DZ»COSI 

00004800 

963* 

Y (  I  )=YZ*DZ»SINE 

00004605 

966* 

RHO(  I  )=SQRT(XU)«»2  +  Y< I  1**2) 

00004810 

965* 

CALL  ARCTA(XU),  YU),  PHI(I)) 

00004815 

966* 

CALL  POLY(N, A, RP( I ) ,CP( I ) ,PR(  I )  , 

rc(  i )  f 

RHO( I ) , PHI ( I  )  ) 

00004620 

967* 

ABSP( I ) =  SQRT ( RP( I )**2  +  CP(  I )«»2) 

00004825 

968* 

IF(A8SPZ-A8SP( 1) )  631,631,621 

00004830 

969* 

621 

ABSPZ=ABSP( I ) 

00004835 

970* 

IM*  1 

00004840 

971* 

631 

CONTINUE 

00004845 

972* 

IF< IM>  661,661,661 

00004850 

97  5* 

661 

DZ=0Z/8. 

00004855 

976* 

IF<RHOZ)66S»665,663 

00004860 

975* 

663 

IF (DZ/RHOZ-1. £-7)651,651,601 

00004865 

976* 

665 

I F ( DZ- 1 .£-7)651,651. 601 

00004870 

9  V  - » 

651 

IF(SU-ABSPZ)  501,501,5001 

00004875 

978* 

66  1 

DZ=(2.**(IM-2))*DZ 

00004880 

979* 

XZ=X( IN) 

00004885 

980* 

YZ=Y( IM1 

00004890 

981* 

PH1Z=PH1 < IM) 

00004895 

982* 

PRZ=PR( IM) 

00004900 

983* 

PCZ=PC( IM) 

00004905 

986* 

RHOZ=RHO(IM> 

00004910 

985* 

RZ=RP( IM) 

00004915 

986* 

CZ=CP( IM) 

00004920 

987* 

GO  TO  221 

00004925 

988* 

501 

DZ* 1 . 0 

00004930 

989* 

dtheta=pi/io . 

00004935 

990* 

521 

THETA--0 . 0 

00004940 

991* 

DO  561  1=1, 2D 

00004945 

992* 

theta*theta*dtheta 

00004950 

993* 

XS=XZ*DZ*COS(PHIZ*THETA) 

00004955 

996* 

YS=YZ*DZ*SIN(PHIZ*THETA) 

00004960 

995* 

RHOS*SORT(XS*»2+YS»*2 ) 

00004965 

996* 

CALL  ARCTA(XS.YS,PH1S) 

00004970 

997* 

CALL  POLYIN.A.RS.CS.PRS.PCS.RHOS, 

.  PH  IS) 

00004975 

998* 

ABSP(1)=SQRT(RS*»2*CS«»2) 

00004980 

999* 

1F(ABSPZ-ABSP< 1)1561,561,601 

00004955 

1000* 

561 

CONTINUE 

00004990 

1001* 

DZ=DZ/2 . 

00004995 

1002* 

IF(RHOS>563, 565. 563 

00005000 

1003* 

563 

IF ( DZ/RHOS-1 . E-7 )5001 . 5001 , 521 

00005005 

1006* 

565 

IF(DZ-1.E-7)50D1, 5001, 521 

000050 1 0 

1005* 

601 

XZ  =  XS 

0000501 5 

A-23 


1006)* 

YZa  YS 

00005020 

1007* 

PHIZ=PHIS 

00005025 

1008* 

RHOZ=RHOS 

00005030 

1009* 

ABSPZ= ABSP ( 1  ) 

00005035 

1010* 

PRZ-PRS 

00005060 

1011* 

PCZ=PCS 

00005065 

1012* 

RZ*RS 

00005050 

1013* 

CZ  =  CS 

00005055 

1016* 

GO  TO  221 

00005060 

1015* 

701 

IFCPSI-l.E-6>71i, 711*351 

00005065 

1016* 

711 

IF(SU-ABSPZ)501 ,501,351 

00005070 

1017* 

801 

RHO  (  1  )*RH0Z+B0T/SU**2 

00005075 

1018* 

IF  C  RHO ( 1 ) >901 , 901 ,816 

00005080 

1019* 

616 

PHI ( 1 )=PHIZ+T0P/( RH0Z*SU*#2) 

00005085 

1020* 

821 

CALI  P01Y(N,A,RZ,CZ»PRZ»PCZ»RH0(1),PHI(1)) 

00005090 

1021* 

ABSP ( 1)=SQRT(RZ*#2+CZ**2) 

00005095 

1022* 

IF(ABSPC 1 )-ABSPZ)85l ,881 ,881 

00005100 

1023* 

861 

XZ=RHOZ*COS( PHIZ  ) 

00005105 

1026* 

YZ°RHOZ#SIN(PHIZ) 

00005110 

1025* 

GO  TO  5001 

00005115 

1026* 

851 

RHOZ  =  RHO  C 1 ) 

00005120 

1027* 

ABSPZ=ABSP( 1 ) 

00005125 

1028* 

PH  I Z  =  PH  I  (  1 ) 

00005130 

1029* 

TOP=RZ#PCZ-CZ#PRZ 

00005135 

1030* 

BOT=-(RZ*PRZ*CZ#PCZ) 

00005160 

1031* 

SU  =  SQRT  (PRZ**2+  PC  Z»*2  ) 

00005165 

1032* 

I F ( SU  >855,501 ,855 

00005150 

1033* 

855 

U  =  2 . *  A  BSPZ*  SU 

00005155 

1036* 

P5I-ATAN(U) 

00005160 

1035* 

IF (ABSPZ/( RHOZ#SU)-10 . #  #  ( -  MTS  T ) )861,861,901 

00005165 

1036* 

861 

IFCABSPZ/(RHOZ*SU)-l .£-7)841.841,872 

00005170 

1037* 

871 

IFCPSI-1. £-6)881, 881, 801 

00005175 

1038* 

881 

IF(SU-ABSPZ)501 , 501 , 901 

00005180 

1039* 

901 

DZ= ABSPZ/SU 

00005185 

1060* 

XZ=RHQZ#COS(PHIZ) 

00005190 

1061* 

YZ=RHOZ*SIN(PHIZ) 

00005195 

106?* 

MTST-MTST+ 1 

00005200 

1063* 

GO  TO  201 

00005205 

1066* 

5001 

RETURN 

00005210 

1065* 

END 

00005215 

1066* 

SUBROUTINE  MTAIGD(AARG,NA,BARG,NB,C) 

00005220 

1067* 

DIMENSION  AARG(9999) , BARGC9999) ,C( 9999) ,  A  ( 101 ) »B( 101 ) 

00005225 

1068* 

1 

NAP  L 1  *  NA  ♦ 1 

00005230 

1069* 

DO  21  J 1 = 1 ,NAPL1 

00005235 

1050* 

21 

AC  J 1 )=AARG(J  1  ) 

00005260 

1051* 

NBPl 1 =NB+  1 

00005265 

1052* 

DO  41  J 1  =  1 , NBP L  1 

00005250 

1053* 

61 

B ( J 1 )  =  B ARG  C  J  1  ) 

00005255 

1056* 

NCPL1=NAP11+NBPL1-1 

00005260 

1055* 

DO  91  Jl=l ,NCPL I 

00005265 

1056* 

TEMP*0  . 

00005270 

1057* 

DO  81  J  2  s 1  ,  J1 

00005275 

1058* 

I F ( J  2-NAPL 1 )  61,61,81 

00005280 

A-2U 


1  0  5  9  * 

6  1 

N2  3  J 1 - J  2  +  1 

00005285 

1060* 

1FCN2-NBP11 )71 ,71 ,81 

00005290 

1061* 

7  1 

TEMP3TEMP+A(J2)*B(N2) 

00005295 

1062* 

81 

CONTINUE 

00005300 

1  063* 

C< J1 ) 3  TEMP 

00005305 

1064* 

91 

CONTINUE 

00005  31  0 

1065* 

RETURN 

0C00531 5 

1  0  6  6  * 

END 

00005320 

1067* 

SUBROUTINE  D I V ( A , B , NA , NB , Q ) 

0000532b 

1068* 

DIMENSION  A(9999),B(9999),QC9999) 

00005350 

1069* 

I 1 =NA-NB+ 1 

00005355 

1  070* 

DO  61  J 1  *  1  ,  I  1 

00005540 

1  071  * 

6  1 

Q( J 1 ) *0  . 

0  0 0  0  5  34  5 

1  072* 

101 

K  KM AX  3  N A-NB  + 1 

000053 5 C 

1073* 

DO  391  K  K  3  1  . KKMAX 

0  0  0  Cl  5  3  5  5 

1  0  74* 

K  =  K  K  -  1 

00005360 

1  0  7  5  * 

201 

TEMP3 0  . 

0000536b 

1  076* 

IF ( K -  1 ) 301 , 21  1  .  21 1 

00005370 

1077* 

211 

DO  291  J  J  =  1  ,  K 

00005375 

1078* 

J  =  JJ-1 

00005380 

1  0  79* 

I 1 sNB-K+J 

00005335 

1030* 

IF ( I 1)291 , 221 , 221 

00005390 

1081* 

221 

I2=NA-NB- J 

00005395 

10  4  *>  * 

TEMP=TEMP*B(I1*1)*QCI2*1> 

00005 4 0 0 

1  0 ..  3  * 

2*i 

CONT INUt 

0000 540 5 

1084* 

301 

I 1 sNA-NB-K 

00005410 

1055* 

I  2  -NA-K 

00005415 

1  086* 

39  1 

Q( 11*1  )  =  A(  12*1 ) - T  E  MP 

0000  5420 

1087* 

500  1 

RETURN 

00005425 

1088* 

END 

'  00005430 

1  089* 

/  START  ACNM=  FT05F00 1 

1090* 

9000 

00000010 

1091* 

2 

1  .2 

o  o  o  o  o  o  i : 

1092* 

4 

2  .  5 

ooooou  •• 

1  093* 

6 

3.85 

00000016 

1  094* 

8 

5.  5 

0000001 5 

1  095* 

1  0 

7 . 5 

00000020 

1  096* 

12 

9 . 4 

00000022 

1  097* 

1  4 

11.5 

00000024 

1098* 

/  STOP 

1  099* 

/  EOJ 
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APPENDIX  B:  COMPUTER  PROGRAM  PAVEVAL 


The  computer  program  PAVEVAL  calculates  the  allowable  load-carrying 
capacity  and  the  required  overlay  thickness  for  rigid  and  flexible  pave¬ 
ments  in  terns  of  the  value  of  the  subgrade  modulus  that  is  determined 
from  results  of  vibratory  nondestructive  testing  and  in  terms  of  the 
elastic  moduli  of  the  pavement  layers. 

The  copyright  of  much  of  the  information  provided  herein  is 
vested  in  Shell  Research  N.V.  The  information  is  published  with  the 
expressed  permission  of  the  Shell  Oil  Company  and  Koninkli jke/Shell 
Laboratorium,  Amsterdam  (KSLA).  Use  of  the  BtSAR  computer  program  in 
any  design  procedure  other  than  the  procedure  contained  in  this  document 
is  prohibited  without  written  permission  from  KSLA.  It  may  not  be  in¬ 
cluded  in  a  library  of  programs  maintained  for  commercial  purposes  by 
sellers  of  computer  services  nor  used  in  any  other  way  which  results 
in  payment  of  fees  to  the  possessor  of  the  program  solely  for  the  usage 
of  the  program.  When  reference  is  made  to  the  results  obtained  with 
the  program,  acknowledgement  should  be  given  to  KSLA. 

DOCUMENTATION  OF  THE 
COMPUTER  PROGRAM  PAVEVAL 

PROGRAM  IDENTIFICATION 

a.  Program  Title.  WES  Pavement  Evaluation  Program 

b.  Program  Code  Name.  PAVEVAL 

£.  Writer.  Richard  A.  Weiss  and  Ricky  Austin 

d.  Organization.  U.  S.  Army  Engineer  Waterways  Experiment 
Station,  Vicksburg,  MS  39180 

£.•  Date.  July  1977 

f.  Source  Language.  Fortran  IV 

£.  Abstract .  Program  calculates  the  allowable  load-carrying 

capacity  and  required  overlay  thickness  of  rigid  and  flexible 
pavements  for  single-,  dual-,  and  dual-tandem  gear 
configurations. 


ENGINEERING  DOCUMENTATION 


Narrative  Description.  The  allowable  load-carrying  capacity  and 
required  overlay  thickness  of  a  pavement  is  calculated  by  the  combined 
methods  of  vibratory  nondestructive  testing  and  layered  elastic  theory. 
For  flexible  pavements,  a  limiting  vertical  stx'ain  in  the  subgrade  and 
a  limiting  tensile  strain  in  the  AC  layer  are  used,  while  for  rigid 
pavements,  a  limiting  tensile  stress  at  the  bottom  of  the  PCC  layer  is 
used  to  relate  the  allowable  load-carrying  capacity  and  the  required 
overlay  thickness  to  the  pavement  structure.  The  computer  program 
PAVEVAL  is  used  to  implement  the  layered  elastic  theory  method  of  pave¬ 
ment  evaluation.  This  computer  program  is  also  used  to  calculate  the 
allowable  load-car  tying  capacity  and  the  required  overlay  thickness  of 
rigid  and  flexible  pavements  for  single-wheel,  dual -wheel,  and  dual¬ 
tandem-wheel  loadings . 

Method  of  Solution.  For  the  calculation  of  the  allowable 
load-carrying  capacity,  the  computer  program  PAVEVAL  iterates  the 
wheel  load  until  the  operating  stress  and  strain  in  the  pavement  are 
equal  to  a  specified  limiting  value.  For  the  calculation  of  the  re¬ 
quired  overlay  thickness,  PAVEVAL  iterates  the  overlay  thickness  until 
the  operating  stress  and  strain  in  the  pavement  are  less  than  specified 
limiting  values. 

Program  Capabilities.  Three  subroutines  are  used  to  calculate 
the  limiting  values  of  the  stress  and  the  strain  in  the  pavement.  An 
index  called  EKEY  is  used  to  select  the  type  of  limiting  stress  or 
strain  condition  that  is  to  be  used  and  the  depth  in  the  pavement  at 
which  the  limiting  stress  or  strain  condition  is  applied. 

Two  subgrade  subroutines  of  the  program  can  be  used  to  calculate 
the  allowable  load-carrying  capacity  and  the  required  overlay  thickness 
for  flexible  pavements.  These  subroutines  express  the  limiting  strain 
at  the  top  of  the  subgrade  in  terms  of  the  load  repetitions  and  the 
value  of  the  subgrade  Young's  modulus.  The  subroutine  RNN  gives  the 
limiting  strain  at  the  top  of  the  subgrade  in  terras  of  the  total  number 
of  load  repetitions  and  does  not  involve  values  of  the  subgrade  Young's 


modulus.  A  more  accurate  representation  of  the  limiting  vertical  strain 

at  the  top  of  the  subgrade  is  expressed  in  terms  of  the  subgrade  Young's 

modulus  value  and  in  terms  of  the  yearly  load  repetition  rate.  This  is 

done  in  subroutine  FLEX.  For  AC  pavements  using  subroutine  FLEX,  the 

values  of  the  subgrade  modulus  are  restricted  to  500  <  E  <  30000  psi. 

s 

The  computer  program  PAVEVAL  automatically  introduces  the  limiting  ten¬ 
sile  strain  at  the  bottom  of  the  AC  layer. 

For  rigid  pavements,  the  subroutine  RPAL  is  used  to  describe  the 
limiting  value  of  the  tensile  stress  at  the  bottom  of  the  PCC  layer. 

The  limiting  tensile  stress  is  expressed  in  terms  of  the  flexural 
strength  (R),  yearly  load  repetition  number  (YRN),  and  the  pass-to- 
coverage  ratio  for  each  type  of  landing  gear. 

The  computer  program  PAVEVAL  can  calculate  the  allowable  load 
for  a  rigid  or  a  flexible  pavement  and  the  required  overlay  thickness 

for  a  rigid  or  a  flexible  pavement.  An  index  EKEY2  is  used  to  select 

these  possibilities.  By  selecting  the  proper  choices  of  EKEY  and  EKEY2, 
the  allowable  load  and  the  required  overlay  thickness  for  rigid  and 
flexible  pavements  can  be  calculated  for  a  number  of  specified  limiting 
stress  and  strain  conditions. 

Printed  Output.  The  printed  output  consists  of  the  allowable 
load-carrying  capacity  or  the  required  overlay  thickness  for  a  pavement. 
The  vertical  strain  at  the  top  of  the  subgrade  and  the  tensile  strain 
at  the  bottom  of  the  AC  layer  of  flexible  pavements,  as  well  as  the 
tensile  stress  at  the  bottom  of  the  PCC  layer,  are  also  printed  out. 

In  addition,  all  components  of  the  stress  and  the  strain  at  points  on 

the  layer  interfaces  in  the  pavement  directly  under  each  of  the  wheel 

(J 

positions  are  printed  out. 

Computer  Equipment.  The  program  PAVEVAL  was  developed  on  the 


IBM  360/65  computer. 


INPUT  GUIDE  FOR  COMPUTER 
PROGRAM  PAVEVAL 


The  input  data  instructions  for  this  WES-600  CARDIN  program  are 
shown  below.  The  meaning  of  these  terms  is  explained  in  the  following 
pages. 

Line  1  (a)  TEXT 

Line  2  (b)  NSYS 

Line  3  (c)  EKEY,  EKEY2 

Line  h  (d)  AA,  BR,  RN,  ALOAD,  ALIN,  CAREA,  DSM,  SWL 

or 

(d)  ES,  EA,  YRN,  ALOAD,  ALIN,  CAREA,  DSM,  SWL,  PCRATIO 

or 

(d)  DSM,  FAC,  yrn,  R,  ALOAD,  ALIN,  CAREA,  SWL 

or 

(d)  AA,  BB,  RN,  ATHICK,  ATLIN,  CAREA,  DSM,  SWL 

or 

(d)  ES,  EA,  YRN ,  ATHICK,  ATLIN,  CAREA,  DSM,  SWL,  PCRATIO 

or 

(d)  DSM,  FAC,  YRN,  R,  ATHICK,  ATLIN,  CAREA,  SWL 
Line  5  (e)  NLAYS  ISMO  IRED 

Line  6  (f)  E(l),  NU(l),  THICK(l),  AK(l)  or  ALK(l) 

Line  7  (f)  E(2),  NU(2),  THICK(2),  AK(2)  or  ALK( 2 ) 

Line  8  (g)  E(NLAYS),  NU(NLAYS) 

Line  9  (h)  NLOAD 

Line  10  (i)  LDSTRS(l),  RADIUS(l),  X(l),  Y(l),  HOSTR(l),  PSl(l) 

Line  11  (i)  LDSTRS ( NLOAD ) ,  RADIUS ( NLOAD ) ,  X( NLOAD),  Y( NLOAD), 

HOSTR( NLOAD),  PSI(NLOAD) 

Line  12  (j)  NPOS 

Line  13  (k)  LAYER{l) ,  AX(l),  AY(l),  DEPTH ( 1 ) ,  ETA(l) 

Line  lU  (k)  LAYER (NPOS ) ,  AX(NPOS),  AY(NPOS),  DEPTH(NPOS),  ETA(NPOS) 

Line  15  If  another  problem  is  desired,  return  to  line  3  and  repeat 

process . 

The  meaning  and  example  of  each  card  type  are  as  follows: 


Card  type  (a)  TEXT  =  problem  identification,  maximum  of  80  characters. 
Example  line:  Line  No.  Identifying  information 

Card  type  (b)  NSYS  =  number  of  problems  to  run 
Example  line:  Line  No.  NSYS 

Card  type  (c)  EKEY  =  limiting  strain  and  stress  subroutine  code 

1  =  calls  subroutine  RNN 

2  =  calls  subroutine  FLEX 

3  =  calls  subroutine  RIAL 
EKEY 2  =  pavement  problem  code 

0  =  allowable  load 

1  =  overlay  over  flexible  pavement 

2  =  overlay  over  rigid  pavement 
Example  line:  Line  No.  EKEY  EKEY2 

Card  type  (d)  if  EKEY  =  1,  EKEY 2  =  0 
AA  =  -0.l6l6727 
BB  =  -2.2150779 

RN  =  total  number  of  load  repetitions 

ALOAD  =  initial  load,  lb 

ALIN  =  load  increment ,  lb 

CAREA  =  contact  area  (rr^),  in.'1 

DSM  =  dynamic  stiffness  modulus,  for  reference 

SWL  =  0 

Example  line:  Line  No.  AA  BB  RN  ALOAD  ALIN  CAREA  DSM  SWL 

Card  type  (d)  if  EKEY  =  2,  EKEY 2  =  0 

ES  -  subgrade  modulus,  psi 

EA  »  asphalt  modulus  of  existing  layer 

YRN  =  yearly  load  repetition  number 

ALOAD  =  initial  load,  lb 

ALIN  =  load  increment,  lb 

/  O  \  O 

CAREA  =  contact  area  ( irr4" ) ,  in. 


DSM  =  dynamic  stiffness  modulus,  for  reference 
SWL  =  0 

PCRATIO  =  pass-to-coverage  ratio 

Example  line:  Line  No.  ES  EA  YRN  ALOAD  ALIN  CAREA  DSM  SWL  PCRATIO 


Card  type  (d)  if  EKEY  =  3,  EKEY  2  =  0 

DSM  =  dynamic  stiffness  modulus,  for  reference 

FAC  =  pass-to-coverage  ratio 

YRN  =  yearly  load  repetition  number 

R  *  flexural  strength,  psi 

ALOAD  =  initial  load,  lb 

ALIN  =  load  increment,  ib 

CAREA  =  contac'  urea  in."2 

SWL  =  0 

Example  line:  Line  No.  DSM  FAC  YRN  R  ALOAD  ALIN  CAREA  SWL 


Card  type  (d)  if  EKEY  =  1,  EKEY 2  =  1 
AA  =  -0.1616727 
BB  =  -2.2150779 

RN  =  total  number  of  load  repetitions 
ATHICK  =  initial  thickness,  in. 

ATLIN  =  thickness  increment,  in. 

CAREA  =  contact  area  (ir2) ,  in.22 

DSM  =  dynamic  stiffness  modulus,  for  reference 

SWL  =  load  on  one  wheel ,  lb 

Example  line:  Line  No.  AA  BB  RN  ATHICK  ATLIN  CAREA  DSM  SWL 


Card  type  (d)  if  EKEY  =  2,  EKEY 2  =  1 

ES  =  subgrade  modulus,  psi 
EA  =  asphalt  modulus  of  existing  layer,  psi 
YRN  =  yearly  load  repetition  number 
ATHICK  =  initial  thickness,  in. 

ATLIN  =  thickness  increment,  in. 

CAREA  =  contact  area  ( tt r^),  in."2 
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DSM  =  dynamic  stiffness  modulus,  for  reference 
SWL  =  load  on  one  wheel,  lb 
PCRATIO  =  pass-to-coverage  ratio 

Example  line:  Line  No.  ES  EA  YRN  ATHICK  ATLIN  CAREA  DSM  SWL  PCRATIO 

Card  type  (d)  if  EKEY  =  3,  EKEY2  =  2 

DSM  =  dynamic  stiffness  modulus,  for  reference 

FAC  =  pass-to-coverage  ratio 

YRN  =  yearly  load  repetition  number 

R  =  flexural  strength,  psi 

ATHICK  -  initial  thickness,  in. 

ATLIN  =  thickness  increment,  in. 

CAREA  =  contact  area  (tt r^),  in.^ 

SWL  =  load  on  one  wheel,  lb,  for  reference 
Example  line:  Line  No.  DSM  FAC  YRN  R  ATHICK  ATLIN  CAREA  SWL 


Note  for  card  type  (e)  and  (f) 
if,  EKEY  =  1,2 
ISMO  =  0 
IRED  =  0 


all  AK( i ) ' s  =  0 

if,  EKEY  =  3,  EKEY 2  =  0 
ISMO  =  1 
IRED  =  1 
AK( 1 )  =  1000 
Ooher  AK( i ) ' s  -  0 

if,  EKEY  =  3,  EKEY2  =  1 
ISMO  =  1 
IRED  =  1 
AK( 1 )  =  0 
AK( 2 )  =  1000 
other  AK( i ) ' s  =  0 


••  j  1  „  . 


/ 

■Jgjc  *■  * 


Card  type  (e)  NLAYS  =  number  of  layers  in  pavement  system 

ISMO*  =0,  request  for  rough  computational  procedure 
1,  request  for  smooth  computational  procedure 
IRED  =  0,  AK(i)  is  input  in  card  type  f 
1,  ALK(i)  is  input  in  card  type  f 
Example  line:  Line  No.  NLAYS  ISMO  IRED 

*  The  smooth  calculation  procedure  is  more  stable  but  less  efficient 
than  the  rough  procedure  and  is  read  for  systems  with  frictionless  slip 
between  the  layers  or  for  cases  when  numerical  instabilities  are  expected. 

Card  type  (f)  E(i)  =  modulus  of  layer  i 

NU(i)  "  Poisson's  ratio  of  layer  i 
THICK(i)*  =  thickness  of  layer  i 
AK( i )•*  =  interface  compliance 
or  ALK(i)  =  reduced  interface  compliance 
Example  line:  Line  No.  E( i )  NU(i)  THICK(i)  AK(i )  or  ALK( i ) 

•When  coding  an  EKEY2  =  1  or  2  problem,  set  THICK  (l)  =  1,  and  layer  1 
is  the  overlay  layer. 

••  AK( i )  values  are  generally  very  small;  thus,  it  may  be  more  desirable 

E 

to  use  ALK(i)  where  ALK(i)  =  ^  •  AK(i).  For  complete  adhesion 

i 

between  layers  i  and  i  +  1,  set  AK(i)  =  ALK(i)  =  0.  For  almost  friction- 

less  slip  between  layers,  set  ^  +  •  ALK(i)  >  1000. 

i 

Card  type  (g)  E(NLAYS)  =  modulus  of  last  layer 

NU(NLAYS)  =  Poisson's  ratio  of  last  layer 
Example  line:  Line  No.  E(NLAYS)  NH( NLAYS) 

Card  type  (h)  NL0AD*  =  number  of  loaded  areas 
Example  line:  Line  No.  NL0AD 

•Single  wheel  enter  1,  dual  wheel  enter  2,  dual-tandem  enter  ^ 


Card  type  (i)  Load  information:  one  card  for  each  load 

LDSTRS(i)  =  vertical  load  in  units  of  load  for  loaded 
area  i 

RADIUS(i)  =  radius  of  loaded  area  i 
X(i)*  =  abaci  ssa  of  center  of  loaded  area 
Y ( i ) *  =  ordinate  ol‘  center  of  loaded  area 
HOSTR(i)  =  horizontal  load  in  units  of  load  for  loaded 
ar<-n  i  (normally  zero) 

PSl(i)  =  angle  of  !!OUTH  ( i  )  with  respect  to  positive 
X-axis  in  degrees  ( normally  zero  > 

Example  line:  Line  No.  :  DUTFC  ( i  )  RADIUS ( i  )  X(  i  )  'i(i)  Ht)STR(i)  PSl(i) 
*X(i  and  Y ( i )  should  always  be  zero. 

Cara  type  (j)  NPOS  -  number  of  depths  that  will  be  used  for  iteration 

purposes 

1,  rigid  pavement  (EKEi  =  3) 

2,  flexible  pavement  (EKEY  =  1  or  2) 

Example  line:  Line  No.  NPOS 

Card  type  (k)  LAYER  (i)*  =  layer  number  for  position  i 

AX(i)  =  abscissa  of  position  (always  zero) 

AY(i)  =  ordinate  of  position  (always  zero) 

DEPTli(i)*  =  depth  from  pavement  surface  to  position 
ETA(i)  =  angle  from  which  position  is  observed  with 
respect  to  the  difference  of  the  tangential 
loading  (always  zero) 

Example  line:  Line  No.  LAYER(i)  AX(i)  AY ( i )  DEPTH ( i )  ETA ( i ) 

*if ,  EKEY  =  3,  EKEY 2  =  0 

LAYER ( 1 )  =  1 
DEPTH ( 1 )  -  THICK (  l. ) 

if,  EKEY  =  3,  EKEY 2  =  2 

LAYER ( 1 )  =  2 

DEPTH(l)  =  THTCK(l)  +  THICK(2),  when  THICK(l)  =  1 


if,  EKEY  =  1,2,  EKEY2  =  0 

LAYER(l)  =  1 

LAYER(2)  =  last  layer  (NLAYS) 

DEPTH(l)  =  THICK(l) 

DEPTH(2)*  =  distance  from  pavement  surface  to  top  of 
subgrade 

if,  EKEY  =  1,2,  EKEY2  =  1 

LAYER(l)  *  2 

LAYER(2)  =  last  layer  (NLAYS) 

DEPTH(l)  =  THICK(l)  +  THICK(2),  where  THICK(l)  =  1 
DEPTH(2)*  =  distance  from  pavement  surface  to  top  of 
subgrade 

(nlays-i ) 

#DEPTH( 2 )  =  J  THICK(i) 

i=l 

PROGRAM  LISTING 

Data  are  coded,  then  typed  into  a  disc  file,  and  saved  for  later 
execution.  The  following  listing  is  the  sample  problem  with  control 
cards . 
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PROGRAM  PAVEVl 


1» 


2* 

C 

COMPUTATION  OF  STRESSES , STRAINS  AND 

00010000 

3  * 

C 

DISPLACEMENTS 

IN  LAYERED  ELASTIC  SYSTEMS 

00010010 

4* 

c 

THIS  PROGRAM 

CALCULATES  THE 

FOLLOWING 

00010020 

5* 

c 

STRESSES, STRAINS  AND  DISPLACEMENTS 

00010030 

6* 

c 

1  ) 

RADIAL 

DISPLACEMENT 

00010040 

7  * 

c 

2  ) 

TANGENTIAL 

DISPLACEMENT 

00010050 

a# 

c 

3) 

VERTICAL 

DISPLAC6MENTS00010060 

9* 

c 

4  ) 

RADIAL 

stress 

00010070 

10* 

c 

5) 

TANGENTIAL 

STRESS 

0001 0080 

l  i  * 

c 

6  ) 

VERTICAL 

STRESS 

00010090 

12* 

c 

7)  RADIAL 

AND  TANGENT' AI 

STRESS 

00010100 

13* 

c 

8)  RADIAL 

AND  VERTICAL 

STRESS 

OGOlOi l 0 

14* 

c 

9  )  TANGENT  1 AL 

AND  VERTICAL 

stress 

0001 0 1 20 

15* 

c 

10  ) 

RADIAL 

STRAIN 

000 1 01 30 

16* 

c 

1  1  ) 

TANGENTIAL 

strain 

000  1  0  140 

1  7* 

c 

12  ) 

VERT 1CAL 

STRAIN 

0001 0 1 50 

18* 

c 

13)  RADIAL 

AND  TANGENTIAL 

STRAIN 

0001 C160 

1  9* 

c 

14)  RADIAL 

AND  VERTICAL 

STRAIN 

00010 1 70 

20* 

c 

15)1 ANGE  N  T I  A  L 

AND  VERTICAL 

STRAIN 

00010180 

21* 

c 

00010190 

22* 

c 

MASTERPROGkAM 

00010200 

23* 

c 

0001 02 1 V 

24* 

c 

PURPOSE 

00010220 

n  5  * 

c 

0  0  0  1  0  2  3  C 

26* 

c 

THIS  MAST  fc  R  PR  QGR  AN  READS  DATA  WHICH 

000102 40 

27* 

c 

DETERMINE  THE  PHYSICAL  BEHAVIOUR  OF 

00010250 

28* 

c 

THE  SYSTEM 

OF  LAYERS  AND  WHICH 

00010260 

29* 

c 

DESCRIBE  THE  CONFIGURATION 

OF  THE  IOADS 

.00010270 

30* 

c 

FOR  EACH  SYSTEM  THE  REQUIRED  STRESSES 

00010280 

31* 

c 

STRAINS  AND 

DISPLACEMENTS 

ARE  READ  IN 

000  1  0290 

32* 

c 

THEN  THE  COORDINATES  OF  EACH  POSITION 

ooo : C3oo 

33* 

c 

ARE  READ. 

00010310 

34* 

c 

FOR  A  COMPLETE  I NPU T - DE SC R I P T I  ON  SEE 

00010320 

35* 

c 

GROUP  EXTERNAL  REPORT  AMSR 

.  72 

00010330 

36* 

c 

SYSTEM  DATA  ARE  OUTPUTTED  BY 

00010340 

37* 

c 

I  ) 

SYSTEM 

00010350 

38* 

c 

AFTER  SUBSEQUENT  CALLING  IN 

OFt 

0001 0360 

39* 

c 

2  ) 

MACONl 

00010370 

40* 

c 

4  ) 

MA2C0N 

0001 03S0 

41  * 

c 

5) 

CONPNT 

00010390 

42* 

c 

6  ) 

ASYMPT 

0001 0400 

43* 

c 

7  ) 

GENOAT 

0001 04 1 0 

44* 

c 

8  ) 

INGRAL 

00010420 

45* 

c 

THE  STRESSES, 

STRAINS  AND  DISPLACEMENTS 

0001 0430 

46* 

c 

ARE  CALCULATED  AND  AFTER  SUBSEQUENT 

0001 0440 

47* 

c 

CALLING  IN  OF* 

0001 0450 

48* 

c 

9  ) 

CALC 

00010460 

49* 

c 

1 Q ) OUT  PUT 

00010470 

50* 

c 

11) JACOB  1 

00010460 

51* 

c 

12 IES0RT 

0001 0490 

A 

i 

» 
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52*  C 

SI*  c 
S6*  c 

55*  C 
56*  C 
57*  C 
sa*  c 

59*  C 
6  0*  C 
61*  C 
62*  C 
63*  C 
66*  C 
65*  C 
66*  C- 
67*  C 
68*  C« 
69*  C 
70*  C 
71*  C 
72*  C 
73*  C 
76*  C 
75*  C 
76*  C 
77*  C 
78*  C 
79*  C 
80*  C 
81*  C 
82*  C 
83*  C 
86*  C 
85*  C 
86*  C 
87*  C« 
88*  C 
89* 

90* 

91* 

92* 

93* 

96* 

95* 

96* 

97* 

98* 

99* 

100* 

101* 

102* 

103* 

106* 


MAIN  OUTPUTS  OK  HAS  ALREADY  OUTPUTTED# 
-ALL  STRESSES, STRAINS  AND  DISPLACEMENTS, 
INDUCED  BY  EACH  LOAD  SEPARATELY  AND 
EXPRESSED  IN  CYLINDRICAL  COMPONENTS. 

-ALL  TOTAL  STRESSES  STRAINS  AND  DISPLACE¬ 
MENTS  EXPRESSED  IN  CARTESIAN  COMPONENTS. 
-ALL  PRINCIPAL  TOTAL  STRESSES  AND  STRAINS, 
WITH  THEIR  PRINCIPLE  DIRECTIONS. 

-ALL  MAXIMUM  TOTAL  SHEAR  STRESSES  AND 
STRAINS, WITH  THEIR  PRINCIPLE  DIRECTIONS 
-THE  MIDPOINTS  OF  THE  THREE  ACCOMPANYING 
MOHR'S  CIRCLES. 

-THE  TOTAL  STRAIN  ENERGY  AND  STRAIN 
ENFPGY  OF  DISTORTION. 


***************************************  '*  ;************************ 
THIS  PROGRAM  WAS  MODIFIED  TO  SOLVE  RIGID  AND  FLEXIBLE  PAVEMENT 
PROBLEMS  USING  THE  COMBINED  METHODS  OF  THE  BISAR  PROGRAM  AND 
VIBRATORY  NONDESTRUCTIVE  TESTING.  THIS  PROGRAM  SOLVES  OVERLAY 
THICKNESS  AND  ALLOWABLE  LOAD  PROBLEMS  FOR  EACH  PAVEMENT  TYPE. 


PROGRAM  NAME!  PAVEVAL 

CODED  BY:  RICKY  AUSTIN,  GEOTECHNICAL  LABORATORY, 
WATERWAYS  EXPERIMENT  ST AT  I  ON , V I C KSBURG , 
MISSISSIPPI 

COMPUTER:  WATERWAYS  EXPERIMENT  STATION,  GE600 
LANGUAGE:  FORTRAN  IV 
DATE  COMPLETED:  SEPTEMBER  1978 
SPECIAL  REQUIREMENTS:  CARDIN, 

REMOTE  BATCH  PROCESSING 

STORAGE:  DISC 


00010500 

00010510 

00010520 

00010530 

00010560 

00010550 

,00010560 

00010570 

00010580 

00010590 

00010600 

00010610 

00010620 

00010630 

-00010660 

00010650 

00010660 

00010670 

00010680 

00010690 

00010700 

00010710 

00010720 

00010730 

00010/60 

00010750 

00010760 

00010770 

00010780 

00010790 

00010800 

00010801 

00010810 

00010820 

00010830 

*00010860 

00010850 

00010860 

00010870 

00010880 


LOGICAL  STRESS, EPS. R LOW , A I D ( 2 7 ) , N , L , N2 , L 2 , NZE P . NZEQ  00010860 

INTEGER  REQESTC27) , IQ( 3) ,DATE(31, ISTRSSt27) , INTV( 10) , IVER1C7) ,  00010870 

+IVER2C 10)  00010880 

REAL  NU.K5, MU. L DST RS < 1 0 ) . HOST R ( 1 0  > . LOAD. INT(17),V(15),X(10),Y(10), 00010890 
♦A(3.3).HH(3,3),W(3),C(39),B(3,3),TEXT(15),ACCUR(3),PSI(10),AK(9>,  00010900 
♦  ALK (  9  )  00010910 

DOUBLE  PRECISION  C2.ELLE.ELLK  00010920 

COMMON/ASDT/ LAYER .NLAYS , M,R,2,NU(10).ACCUR,LOAD,HDSTRS,NZEROS,H(9)00010930 
+,K5(10).E(10),AL(9),THICK(9),RADIUS(10)  00010960 

COMMON/STRDTA/STRESS<27) ,EPS( 17) .RLOW.ST.CT, L , ACC  00010950 

COMMON/CONST/CZ ,ELLE,ELLK,ALMBDA  00010960 

COMMON/CNTING/F 10MI ,F100 ,F101,F11M2,F11M1,F110.F111  00010970 

COMMON/TAPE/NOUT  00010980 

COMMON  VSTR , STRL , ITER ,STRL2  00010990 

COMMON/RADI AL/STSL .DSM.FS.SWL  00011000 

DIMENSION  XT EMP( 1 00 ) , YTEMPC 1 00 > , LAY( 100) , AXX( 100 )  00011010 


105*  DIMENSION  AYYl 100 > ,DEPl 100 1 , ETAAl 100 >  00011020 

106*  INTEGER  EKEY.EKEY2  00011030 

107*  DATA  NBLANK . ISTRSS, IREF1 , IREF2/  00011040 

108*  +  '  ’.‘UR  ’,’UT  ’,’U2  SRR STT SZZ* ,• SRT SRZ STZ ERR ' 000 1 1050 

109*  ♦. ’ETT* . 'EZZ' , ’ERT' , ’ERZ* . 'ETZ' , ’UX  ’.'UY  • , ■ SXX • , ’ SX Y ■ , • SXZ ’ , • SY Y ’ 00 0 1 1 0 6 0 

110*  ♦ . 'SYZ' , *EXX ' , ’EXY* , 'EXZ' . ’EYY* , ' EY' . ’ LOAD' , • STRS 1 /  00011070 

111*  DATA  REQEST/'UR  ',’UT  ',’UZ  •  , 1  SR R '  .  1  ST T * ,  ' SZZ •  ,  ' S R T ■  ,  ' S R Z *  ,  ' S T Z  '  ,  0 0 0  1  1  0 80 

112*  1 ' ERR ' i  00011090 

113*  2'ETT* , 'EZZ1 . 'ERT* , 'ERZ' , 'ETZ* , 'UX  '.'UY  • ,  ' SX X 1 ,  • S X Y '  .  • S X Z  •  .  ' S V Y 1  , 0 0 0  1  1  1  0 0 

114*  3'SYZ'  » • E  X  X  *  >  ' E  X  Y  * i  *  E  X  2  '  ,  1 E  Y  Y  '  *  'EY  *7  0001  1  1  1  0 

115*  DATA  IVER1 , IVER2/1 . 2. 3 , 6 , 7, 13 . 16 .4, 5,8 , 9  ,  1  0 , 1  1 . 1  2 . 1  5  ,  1  6 , 1  7/  0  0  0  1  1  1  2  C 

116*  DATA  IDENT7 'LOAD*/  00011130 

117*  C -  - 000  1  1  1  A 0 

118*  C  THESE  ARE  THREE  ACC.iACIES  00011150 

119*  C  ACCUR(l)  IS  USED  FOR  TESTING  SEVERAL  00011160 

120*  C  VARIABLES  AGAINST  EACH  OTHER.  00011170 

121*  C  ACCUR ( 2 )  IS  USED  FOR  ABSOLUTE  ACCURACY  00011180 

122*  C  OF  THE  INTEGRATION  PROCEDURE  00011190 

123*  C  ACC  URL  3)  IS  USED  FOR  RELATIVE  ACCURACY  000  1  1  2  0C 

126*  C  OF  THE  INTEGRATION  PROCEDURE  0001121C 

125*  C  N1N,  00011220 

126*  C  NOUT  ARE  SYMBOLIC  NAMES  FOR  INPUT  AND  00011230 

127*  C  OUTPUT  MEDIA  RESP.  000112A0 

12  8*  C - -  -  - 0001  1  250 

'  ACCIJRC  1)  =  1  .  0E-04  0001  1  260 

130*  ACCUR(2)=1.0E-4  0001 1270 

131*  ACCURI 3) = l . 0E-3  00011280 

132*  ACC-ACCURt 1 1  00011290 

133*  N I N  =  5  0001  1  300 

134*  NOUT  =  6  00011  310 

1 35*  V2=l. 414214  00011320 

136*  C  ITER  *  0,  INPUT  NOT  COMPLETE.  00011330 

137*  C  ITER  *  1,  INPUT  COMPLETE.  00011340 

138*  C  ISKIP  *  0.  ITERATION  NOT  COMPLETE.  00011350 

139*  C  ISKIP  =  1,  ITERATION  COMPLETE.  00011360 

140*  WRITEINOUT, 90001  00011370 

141*  C - 000  1  1  380 

142*  C  READ  TEXT  AND  DATE  CARD  00011390 

143*  C - - -  - 0001  1400 

144*  READ! NIN , 90 1 0 1TEXT  00011410 

145*  WRITE! NOUT ,9020)TEXT  00011420 

146*  C - 000  1  14  30 

147*  C  READ  NUMBER  OF  SYSTEMS  AND  SET  LOUP  00011440 

148*  C -  - 0001  1450 

149*  CALL  NFROINlN.NSYS.il 

150*  CALL  NFRDININ, 10.2) 

151*  DO  460  ISYS-l.NSYS  00011480 

152*  ITER=0  00011490 

153*  ISKIP=0  00011500 

154*  C  SELECT  LIMITING  STRAIN  OR  STRESS  SUBROUTINE  CODE  AND  PAVEMENT  00011510 

155*  C  TYPE.  00011520 

156*  CALL  NFRDININ, EKEY ,  1  ) 

157*  CALL  NFRDININ . EKEY2 . 2  1 
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158*  GO  TO! 501 . 502, 503) ,EKEY  00011540 

159*  501  CALL  RNN(AA,BB,RN, ALOAD, ALIN, CAREA)  00011550 

1«0*  GO  TO  510  00011560 

161*  502  CALL  F L E X < ES , E A  ,  ALOAD , AL I N , C ARE  A , XS , AS , BS , YRN , PR  AT  1 0 >  ♦001  1  570 

162*  GO  TO  510  00011580 

163*  503  CALL  RPAL ( ALOAD , A L I N , CAR E A )  00011590 

164*  S10  CONTINUE  00011600 

165*  IF(EKEY2.GT.O)GO  TO  520  00011610 

166*  IF(EKEY.LT.3)WRITE(NOUT,900)STRL»STRL2»*LOAD»ALIN  00011620 

16  7*  IFIEKEY.EQ.  3 ) MR  I TE 1 NOU T , 9  0 1 ) FS , DSM , A L DAD , AL I N , STSL  0  001  1630 

168*  GO  TO  550  00011640 

169*  520  CONTINUE  00011650 

170*  ATHICK=ALOAD  00011660 

171*  ATLIN=ALIN  00011670 

172*  GO  TO(521,522),EKEY2  00011680 

173*  521  WRITE (NOUT , 902 )  00011690 

174*  WRITE(N0UT,903)DSM,SWL,ATHICK,ATLIN,STRL,STRL2  00011700 

175*  GO  TO  550  00011710 

1  76*  522  WRITE (NOUT ,  904  )  0001  1  720 

177*  WRITE(NOUT.90S)DSM,SWL,FS,ATHICK,ATLIN,STSL  00011730 

178*  550  CONTINUE  00011740 

179*  C - 0001  1750 

180*  C  READ  NUMBER  OF  LAYERS  AND  THEIR  PARAMETERSOOO 1 1 760 

181*  C - 000  1  1  770 

182*  CALL  NFRDlfllN.NLAYS,  1  ) 

183*  CALL  NFR01NIN , ISMO, 2 ) 

184*  CALL  NFRDCNIN,  IRED.2) 

185*  IF  INLAYS . EQ  .  1  )  GO  TO  10  0001  1  790 

186*  M  =  NLAYS- 1  0001  1800 

187*  DO  315  1*1, N  00011810 

188*  CALL  FFRDININ.El 1)  ,  1  ) 

189*  CALL  FFRDININ.NUl I) ,2) 

190*  CALL  FFRD1NIN, THICK! I  )  ,2) 

191*  315  CALL  FFRD1NIN. AK( I ) , 2 ) 

192*  10  CALL  FFRD1N1N, E(NLAYS) , 1 ) 

193*  CALL  FFRD(NIN,NU(NLAYS),2) 

194*  C -  - 0001  1840 

195*  C  READ  NUMBER  OF  LOADS  AND  THEIR  PARAMETERS  00011850 

196*  C - - 0001  1860 

197*  CALL  NFRD1NIN.NL0AD, 1 ) 

198*  NZEP  *  .FALSE.  00011880 

199*  NZEO  =  .FALSE.  00011890 

200*  DO  30  1=1 ,NL0AD  00011900 

201*  CALL  FFRDCNIN , LDSTRS1 I  )  ,  1  ) 

202*  CALL  FFRD1NIN, RADIUS! 1 ), 2 ) 

203*  CALL  f FRDININ.X! I ) , 2 ) 

204*  CALL  FFRD1NIN. Y( I ) , 2) 

205*  CALL  FFRDININ.HOSTR! I ) ,2 ) 

206*  CALL  FFRDCNIN, PSI ( I) .2 ) 

207*  IF ( EKEY2 . GT . 0 )GQ  TO  560  00011920 

208*  LDSTRS! I) =ALOAD  00011930 

209*  560  CONTINUE  00011940 

210*  PSI ( I ) = . 01 74533»PSI < I )  00011950 


211*  IF < LDSTRSL I) .GT . ACCUR! 1 1 )  NZE  P  =  .TRUE.  00011960 

212*  IF (HOSTR( I ) .GT . ACCUR! 1 ) >  NZEQ  =  .TRUE.  0001  1970 

213*  IF(IDENT.EQ.IREFl)  GO  TO  20  0001  1980 

214*  I F ( IDENT.NE . IREF2 )  HR  I TE ! NOUT , 904  0 1  LDSTRS (I 1 , HOSTR ( I )  0001  1990 

215*  GO  TO  JO  00012000 

216*  20  LDSTRS l I )  =  L DST RS ( I ) / < J . 1 4 1 59 * R AD  1  US ( 1 ) * R AD I US ( I) )  0001  2010 

217*  HOSTR ( I )  =  HOSTR! I )/( 3 . 14l59*RADIUSt 1 )*RAD1US( I ) )  00012020 

218*  JO  CONTINUE  00012030 

219*  C - 00012040 

220*  C  TEST  ON  OBVIOUS  MISTAKES  IN  SYSTEM'S  DAT A- 0 00 1 2 0 50 

221*  C  CARDS.  0001206C 

222*  c  WHEN  IRED  >  0  THE  REDUCED  SPR I NGCOMP L I  AN-  000  1  2070 

223*  C  CE  WAS  READ.  00012060 

224*  C  A  NON-VANISHING  S L I  PR E S 1  ST ANC E  IS  SUBSTI-  0001  2090 

225*  C  TUTED  TO  PREVENT  RIGID-BODY  MOTION  OF  THE  00012100 

226*  C  TOPE  AVERS  000121  10 

2  2  7*  C - - - 00012120 

228*  CO  50  J  -  1.NIAYS  0001  2  1  30 

229*  IF ( E 1 . O-NU ( J  )  J  . LT . ACCUR (  1  ) )  GO  TO  410  00012140 

230*  IF ! E ( J  I  .  LT  .  ACCUR !  1  )  )  GO  TO  420  000  1  2  1  50 

231*  I F < J . EQ  .  NLAYS  )  GO  TO  50  000121  60 

232*  I F (  IRED.EQ.O)  GO  10  40  00D12170 

233*  ALK'J)  =  AK(J)  00012180 

234*  IF ( ALK ( J ) . LT . 1 000 . 0 .OR . .NOT . NZEQ )  GO  TO  50  00012190 

215*  ALKCJl  =  1000.0  00012200 

236*  A  K  !  J  )  =  1000.0  0001  22  1  0 

237*  GO  TO  50  00012220 

238*  40  ALKIJ1  *  AMJ)»E<J)/!1.0*NU!  J>>  00012230 

2  39*  IF<  ALK!  J  1  .  LT  .  1000 . 0.  OR  .  .NOT  .NZEQ)  GO  TO  50  0001  2240 

240*  ALKU)  =  1000.0  .00012250 

241*  AK(J)  =  ALM  J  1*(  1  .  0  +  NU!  J  )  >/Ei  J  )  000  1  2260 

242*  50  CONTINUE  00012270 

243*  C - 00012280 

244*  C  OUTPUT  OF  ALL  PHYSICAL  DATA  OF  SYSTEM  00012290 

245*  C  AND  LOADS  BY  CALLING  IN  SYSTEM.  00012300 

246*  C - -  000  1  2  3  1  0 

247*  CALL  SYSTEM! ISYS. E ,  NU  , THICK, AK , NLAYS. M.NLOAD, LDSTRS, HOSTR , ALK ■  0001232C 

248*  +  RADIUS, X , Y , PSI . ISMO , IRED J  00012330 

249*  IF (  . NOT .NZEP . ANO .  . NOT . NZEQ  )  GO  TO  430  000  1  2  340 

250*  C -  --000  1  2  350 

251*  C  CALCULATION  OF  CONSTANTS  USED  IN  SUBROU-  00012360 

252*  C  TINE  MATRIX  TO  BUILT  UP  VARIOUS  MATRICES  00012370 

253*  C  BY  CALLING  IN  MACON1 .  00012380 

254*  C - 0001  2390 

255*  CALL  MACON1 < ISMO, ALK , NEWSYS)  000)2400 

256*  60  IF(NEWSYS.EQ.O)  GO  TO  70  00012410 

257*  CALL  SYSTEM!  ISYS.E  ,NU, THICK, AK  »NLAY.'  . ,  NLOAD  ,  LDST  RS  ,  HOST  R  .  A  L  K  .  0001  2420 

258*  +  RADIUS, X.Y  PSI, ISMO, IRED)  00012430 

259*  C - 0001  2440 

260*  C  READ  STRESSES , STRA INS  AND  DISPLACEMENTS  00012450 

261*  C  TO  BE  CALCULATED.  00012460 

262*  C - 0001  2470 

263*  70  CONTINUE  00012480 
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264*  DO  90  1=1,27  00012490 

265*  IF(REQEST( I ) .EQ.NBLANK)  GO  TO  80  00012500 

266*  IF(REQEST( I ) ,NE . ISTRSSC 1 ) )  WR I TE ( NOUT . 9070 )  ISTRSS(l)  00012510 

267*  AID( 1 ) = . TRUE .  00012520 

268*  SO  TO  90  00012530 

269*  80  AID(I>*. FALSE.  00012540 

270*  90  CONTINUE  00012550 

2  71*  C - 00012560 

272*  C  CONSVS  DETERMINES  FOR  EACH  SYSTEM  WHICH  00012570 

273*  C  STRESSES. STRAINS  AND  DISPLACEMENTS  WILL  00012580 

274*  C  BE  CALCULATED.  00012590 

275*  C - 00012600 

276*  CALL  C0NSYS(A1D.NZEP.N2EQ.N.L)  00012610 

277*  C - 00012620 

278*  C  READ  NUMBER  OF  POSITIONS  AND  SET  LOOP  00012630 

279*  C - 00012640 

280*  100  CALL  NF RD ( N IN , NPOS , 1 ) 

281*  590  CONTINUE  00012660 

282*  580  CONTINUE  00012670 

283*  IF ( ISK IP . EQ . 0 >GO  TO  88  00012680 

284*  NP0S=NP0S3  00012690 

285 *  88  CONTINUE  00012700 

286*  DO  400  I POS= 1 . NPOS  00012710 

287*  N2  =  N  00012720 

288*  L  2  =  L  00012730 

289*  DO  110  1=1.3  00012740 

290*  DO  110  J  =  1  .  3  00012750 

291*  110  A< I . J  >  *0 . 0  00012760 

292*  C - 00012770 

293*  C  READ  POINT  COORDINATES  AND  LAYERNUMBER.  00012780 

294*  C - 0001  2790 

295*  IF1ITER-GT.0 JGO  TO  570  00012800 

296*  CALL  NFRDtNIN, IAV< IPOS) . 1  ) 

297*  CALL  FFRD(NIN.AXXIIPOS) .2) 

298*  CALL  FFRDtNIN.AYYl IPOS) ,2) 

299*  CALL  FFRDININ.OEPC IPOS) . 2 ) 

300*  CALL  FFRD1N1N,ETAA<IP0S),2) 

301*  570  CONTINUE  00012820 

302*  XTEMPt IPOS)=AXX( IPOS)  00012830 

303*  YTEMP1 IPOS) =AYY( IPOS )  00012840 

304*  LAYER=LAY( IPOS)  00012850 

305*  A  X*  A  XX { I POS )  00012860 

306*  AY  =  AYY  C I POS )  00012870 

307*  DEPTH=DEP( IPOS)  00012880 

308*  ETA»ETAA( IPOS)  00012890 

309*  ETA=.0174533«ETA  00012900 

310*  IFCNLAYS.E9. 1 )  LAYER*!  00012910 

311*  WRITECNOUT .9090)  I POS , L AYER , AX , AY , DE PTH  00012920 

312*  TMIN=1 . 0E+10  00012930 

313*  IF(NLAYS.EQ.l)  GO  TO  130  00012940 

314*  J»LAYER*1  00012950 

315*  J=MINOCJ.M)  00012960 

316*  DO  120  1=1, J  00012970 


317*  IFCTHICK(I)  LT.TMIN)  TM I N  =  TH I C K ( I  )  00012980 

318*  120  CONTINUE  00012990 

319*  130  UX  =  0.0  00013000 

320*  UY=0.0  00013010 

321*  UZ=0.0  00013020 

322*  MU*NU (LAYER)  000130S0 

323*  FT=( 1 . 0+MU )/E ( LAYER )  00013040 

324*  C - - - 0001  3050 

325*  C  SET  LOOP  FOR  NUMBER  OF  LOADS.  00013060 

326*  C - - 000  1  30  70 

327*  DO  330  I=1,N10AD  C0013080 

328*  DO  140  J«l,17  00013090 

329*  140  I  NT ( J )  =  0 . 0  000  1  3  1  00 

330*  DO  150  J= 1 .27  00013110 

331*  150  STRESS( JJ=AID( J)  00013120 

332*  C  COMPUTES  THE  LIMITING  ASPHALT  STRAIN  AND  SUBGRADE  STRAIN.  00013130 

333*  IF (NLAYS . EQ . 1  )  GO  TO  160  C0313140 

334*  C - ---  000  1  3  1  50 

335*  C  CALCULATION  OF  CONSTANTS  NEEDED  FOR  THE  00013160 

3  36*  C  EVALUATION  OF  THE  CHAR  AC T E R I S T  I C  FUNCTI-  0001  31  70 

337*  C  ONS  IN  MATRIX  BY  CALLING  IN  M A  2  CON .  000  1  31  60 

338*  C  MA2CON.  00013190 

339*  C - 000  1  320 0 

340*  CALL  MA2CON( TMIN, I » ISMO.ALK)  00013210 


34  1*  C  — 
342*  C 
343*  C 
344*  C 
345*  C - - 
346* 

347* 

348* 

349* 

350* 

351* 

352* 

353* 

354* 

355* 

356* 

357* 

358* 

359* 

360* 

361* 

362* 

36  3* 

364* 

365* 

366* 

367* 

368* 

369* 


DETERMINATION  OF  POINT  COORDINATES  IN  THE 
CYLINDRICAL  COORDINATE  SYSTEM  WITH  LOAD- 
AXIS  AS  AXIS  OF  SYMMETRY. 


160 


170 

180 


190 


200 


210 


22  0 


230 


I  F ( X ( I  )  .EQ. AX. AND. Y( I ) .EQ. AY)  GO  TO  170 
THE  TA  =  AT  AN2 ( ( AY-YC I ) ) ,  C AX - X ( I  )  )  )  -  PS  I  ( I) 

GO  TO  180 
THETA=ETA-PSI( I ) 

R  ADD  I  S  =  SQRT  (  <AX-X(I))**2«-(AY-YCI))**2) 

WRITE(NOUT , 9100 )  I r R ADD  I S . TH E T A 
R  -  R ADD I S/RADIl/Sf I ) 

Z=DEPTH/RADIUS( I ) 

IF (NLAYS. EQ. 1 )  GO  TO  230 
I  F ( LAYER. GT. 1  )  GO  TO  210 

IF  CZ  .GT  . -ACCURt  1)  .  AND.Z  .  LT  .  (H  (  D+ACCURU  )  )  )  GO  TO  230 
WRITELNOUT ,91 10 ) 

GO  TO  400 

IFCLAYER  LT. NLAYS)  GO  TO  220 
IFCZ.GT. (H(M)-ACCUR(l )))  GO  TO  230 
GO  TO  200 

IF(Z.GT.(H(L AYER-1)- ACCUR(l)). AN D.Z.LT.LHCL AY ER)*ACCUR(1 
) )  GO  TO  230 
GO  TO  200 
RADI  =  RAD  I  US ( I ) 

LOAD  =  LDSTRS ( I ) 

HOST  R S -  HOST  R ( I ) 

RLOW  =  R . LT.ACCURI  1  ) 

ST=SIN< THETA) 


-  000  1  3220 
0001 3230 
0001 3240 
0001 3250 
-00013260 
0  0  0  1  3  2  7  0 
0001 3280 
00013290 
00013300 
000 13310 
0001 3320 
0  0  0  1  3  3  ?  0 
000 1 3340 
00013350 
0001 3360 
0001 3370 
0001 3380 
000 13390 
000 1 3400 
0001 34 1 0 
00C 1 3<«  2  0 
)  0  0  0 1  34  30 
0001 3440 
00013450 
00013460 
0001 3470 
0001 3480 
0P01 3490 
0001 3500 
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370*  CT=COS(THETA)  00013510 

371*  C - :0001  3520 

372«  C  CONPNT  DETERMINES  FOR  EACH  POINT-LOAD  00013530 

373*  C  CONFIGURATION  WHICH  INTEGRALS  HAVE  TO  BE  00013540 

374*  C  CALCULATED.  00013550 

375*  C - 0001  3560 

376*  CALL  CONPNTCR,HOSTRS.LOAO,Z,N2,L2)  00013570 

377*  IF ( LAYER . NE . 1 )  GO  TO  250  00013580 

378*  CZ  =  DBLE(Z)  000)3590 

379*  IF(Z. LT. ACCURI 1 ) . AND . ABStR-l .0) . LT . ACCURt 1 ) )  GO  TO  240  00013600 

380*  C - 0001  3610 

381*  C  ASYMPT  DETERMINES  THE  L I PSCH I TZ-HANKE L  00013620 

382*  C  INTEGRALS  NEEDED  FOR  THE  ASYMPTOTIC  PART  00013630 

383*  C  OF  THE  INTEGRALS . FOR  POINTS  IN  THE  TOP-  00013640 

384*  C  LAVER  ONLY.  00013650 

385*  C - 0001  3660 

386*  CALL  ASYMPT ( R .ACCURt 1 ) )  00013670 

387*  GO  TO  250  00013680 

388*  C - 0001  3690 

389*  C  FOR  POINTS  AT  THE  RIM  OF  THE  LOAD  THE  00013700 

390*  C  LIPSCHITZ-MANKEL  INTEGRALS  CAN  BE  GIVEN  00013710 

391*  C  DIRECTLY.  00013720 

392*  C - 0001  3730 

393*  240  F10M1  ■=  0.63662  0001  3740 

394*  FI  00  *  0.5  0001  3750 

395*  F11M1  *  0.5  00013760 

396*  F11M2  *  0.424413  00013770 

397*  F101  =  0.0  00013780 

398*  F 1 1 0  *  0.0  00013790 

399*  Fill  =  0.0  00013800 

400*  C - - - - - . . 0001  3810 

401*  C  COMPUTATION  OF  THE  REQUIRED  INTEGRALS  BY  00013820 

402*  C  CALLING  IN  GENDAT  AND  INGRAL  00013830 

403*  C - 0001  3840 

404*  250  INTT  =  0  00013850 

405*  DO  260  J  *  1,17  00013860 

406*  I  NT  C  J )  «  0.0  00013870 

407*  260  CONTINUE  00013880 

408*  DO  270  J  >=  1  ,  10  0001  3890 

409*  INTV(J)  =  0  00013900 

410*  K  *  IVER2CJ)  00013910 

411*  I F ( .NOT.EPS(Kl)  GO  TO  270  00013920 

412*  INTV(J)  =  K  00013930 

413*  INTT  ■  I NT  T ♦ l  0001  3940 

414*  270  CONTINUE  00013950 

415*  IF( INTT. EQ. 0)  GO  TO  280  00013960 

416*  IF  INLAYS. NE . 1 1  CALL  GENDAT ( 1 , NZE ROS , R , ACC  1  0001  3970 

417*  CALL  INGRALI2. INTV, INTT. INT)  00013980 

418*  280  INTT  =  0  00013990 

419*  DO  290  J  «  1,7  00014000 

420*  INTV(J)  •  0  00014010 

421*  K  *  IVERl(J)  00014020 

422*  IFC .NOT.FPSCK))  GO  TO  290  00014030 


b-i8 


<#23# 

424  # 

425#  290 

426# 

427# 

428# 

429#  300 

430#  C - 

431#  C 
4  32#  C 
433#  C 

434#  C - 

435# 

436# 

437#  C - - 

438*  C 
439*  C 
440#  C 
441*  C 

442*  C - 

443# 

444* 

445* 

4  i  6  * 

447* 

448#  3 i o 

449# 

450*  320 

451# 

452# 

453* 

454* 

455# 

456* 

457* 

458# 

459* 

460* 

461  # 

462* 

463# 

464*  330 

465* 

466* 

467* 

468* 

469# 

470# 

471# 

472* 

473#  340 

474#  350 

475#  C-  -- 


INTV(J)  =  K  00014040 

1NTT  =  INTT+1  00014050 

CONTINUE  00014060 

IF(  INTT.EQ. 0)  GO  TO  300  00014070 

I F ( Nl AYS . NE . 1 )  CALI  GENDAT ( 0 , NZE  R  OS , R ,  ACC )  00014080 

CALL  INGRAL  t 1 , INTV , 1NTT ,  INT )  00014090 

PS10  =  PSI (  I  )  00014100 

- 000141  10 

CALC  COMPUTES  AND  OUTPUTS  THE  STRESSES,  00014120 

STRAINS  AND  DISPLACEMENTS , INDUCED  BY  EACH  00014130 
LOAD  SE  PAR  AT  E l .  00014140 

- 000141  50 

CALL  C  A  L  C  ( INT , V , R ,  M  U , RADI , FT , LOAD»HOSTRS  *PSI0  »  2)  00014160 

I  F  (  . NO T  .  N2  )  GO  TO  330  000141  70 

- - - -  -• - - - - - - - '  00014180 

COMPUTATION  AND  SUMMATION  OF  CARTESIAN  00014190 

COORD1NAT ES . THE  USED  COORDINATE  SYSTEM  IS  00014200 
THE  ONE  WHEREIN  PO I NTCOORD 1NATES  WERE  00014210 

STATED.  00014220 

- - - - 000142  30 

UZ  =  U  Z  *  V (  3 )  00014240 

IF(ABS<RADDIS).LT.ACCUR(1>)  GO  TO  310  00014250 

CT  -  ' AX-X< 1 ) J/RADDIS  00014260 

ST  =  (AY-Y( I  )  l/HADDIS  000  142  70 

GO  TO  320  00014280 

CT  =C0S(ETA)  00014290 

ST  =SINCETA)  00014300 

C T  2  =  C  T  #  C  T  0001431  0 

ST2  -ST  #ST  00014320 

STCT  =ST#CT  00014330 

A(1,1)=A(1,1)*V(4)#CT2+V(5)#ST2-2.0*VC7J#STCT  00014340 

A<l,2)*A(l,2)*V(7>#(CT2-ST2)*CV(4)-V<5n«STCT  0001435C 

A  (  l  ,  3  )  —  A  (  1  *  3)  *-V(8)#CT“V(  9  )#ST  00014360 

A(2,l)-A(l»2)  000  1437C 

A(2,2)-A(2,2)+V(4)#ST2*Y(5)#CT2+2.0#V(7)*STCT  00014380 

A  (  2  , 3>aA(2»3)+V(8)*5T+V(9)#CT  00014390 

A(3.U-AU»3)  00014400 

A( 3  >  2  )  s  A ( 2 i  3)  000144  10 

A<3, 3  )  “  A  ( 3, 3  )  ♦  V  (  6  1  00014420 

UX  *UX+V< 1 )#CT-V( 2 )#ST  00014430 

UY  SUY*V( 1  )#ST  +  VC2 )#CT  00014440 

CONTINUE  00014450 

TRACE-A(1»1)*A(2,2)+A(3i3)  00014460 

AB  1  .0*MU)/E(LAYER)  000  14470 

AC  «MU#TRACE/E ( LAYER )  00014480 

DO  350  1=1,3  00014490 

DO  340  J  =  1 i  3  00014500 

B (  I  •  J  )  - AB# A ( 1 »  J )  00014510 

IF(l.NE.J)  GO  TO  340  00014520 

B  (  I  »  J ) - B ( I , J ) - AC  00014530 

CONTINUE  00014540 

CONTINUE  00014550 

- - 00014560 
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476** 

477» 

478** 


OUTPUT  FOR  TOTAL  STRESSES , STRAINS  AND  00014570 
DISPLACEMENTS  BY  THREE  TIMES  CALLING  IN  00014S80 
OUTPUT.  00014590 


479m 

480m 

c - 

IF(ISKIP.EQ.O)GO  TO  363 

- 00014600 

00014610 

481m 

WRITE1NOUT  *9120) 

00014620 

482** 

363 

CONTINUE 

00014630 

483** 

EPS! 1 >*STR£SS( 18) 

00014640 

484** 

EPS(2)<STRESS(21 ) 

00014650 

485** 

EPS< 3) =STRESS(  6) 

00014660 

486** 

EPS(4)«STRESS(22> 

00014670 

487m 

EPS(5)*STRESS<20) 

00014680 

488** 

EPS(6)*STRESS( 19) 

00014690 

489** 

C(1)>A(1.1) 

00014700 

490** 

C(2)>A(2.2) 

00014710 

491* 

C( 3)*A( 3, 3) 

00014770 

492* 

C(4)SA(2»3) 

00014730 

493* 

C(5)*A(l,3> 

00014740 

494* 

C( 6 ) *A( 1 >  2  ) 

00014750 

495* 

IF ( ISK IP . EQ . 0 >GO  TO  361 

00014760 

49  6  m 

CALL  OUTPUT(EPS,C,6,l) 

00014770 

497* 

361 

CONTINUE 

00014780 

498* 

EPS(1)«STRESS(23> 

00014790 

499* 

EP$(2)*STRESS(26) 

00014800 

500* 

EPSC  3)*STRESS( 12  ) 

00014810 

501* 

EPS<4).STRESS(27) 

00014820 

502* 

EPS(5)«STRESS(25) 

00014830 

503* 

EPS(6)«STRESS(24) 

0  '4840 

504* 

C ( 1 )*B( 1 ,1  ) 

L  4850 

505* 

C(2)>B(2.2) 

01*14860 

506* 

C<  3)=B<  3, 3) 

00014870 

507* 

C(4)*B(2.3) 

00014880 

508* 

C(  5)«B< 1 .3) 

00014890 

509* 

C(6)*B( 1 .2) 

00014900 

510*1 

511** 

512** 

515** 

514** 

515** 

516** 

517** 

518** 

519** 

520** 

521** 

522<* 

523* 

524** 

525** 

526** 

527** 

528** 


1F(ISKIP.EQ.0)G0  TO  562 

CALL  OUTPUT1EPS.C.6.2) 
362  CONTINUE 

EPS( 1 )”STRESS< 16) 
EPS(2)*STRESS(17) 
EPS(3>»STRESS(  3) 

C( 1 )«UX 
C(2)*UY 
C<  3)«UZ 

IF(ISKIP.EQ.O)GO  TO  360 

CALL  OUTPUT(EPS,C,3.3) 
360  I F ( . NOT . L 2 )  GO  TO  400 


JACOBI  COMPUTES  PRINCIPAL  VALUES  AND 
DIRECTIONS  OF  TOTAL  STRESSES  AND  STRAINS. 
THE  PRINCIPAL  VALUES  ARE  SORTED  ACCORDING 
TO  MAGNITUDE  BY  CALLING  IN  ESORT. 


CALL  JACOBI ( A.HH. 3. 3. 1 .H. IQ) 


00014910 

00014920 

00014930 

00014940 

00014950 

00014960 

00014970 

00014980 

00014990 

00015000 

00015010 

00015020 

-00015030 

00015040 

00015050 

00015060 

00015070 

-00015080 

00015090 
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529* 
530* 
5  31* 
532* 
533* 
534* 
535* 
536* 
537* 
538* 
539* 
540* 
541* 
542* 
543* 
544* 
545* 
546* 
547* 
548* 
549* 
550* 
551* 
557* 
553* 
554* 
555* 
556* 
557* 
558* 
559* 
560* 
561* 
562* 
563* 
564* 
565* 
566* 
567* 
568* 
569* 
570* 
571* 
572  * 
573* 
574* 
575* 
576* 
577* 
578* 
579* 
580* 
581* 


CALL  ES0RTtA,HH,3,3,l,W,IQ> 


DETERMINATION  OF  MAX. SHEAR  STRESSES  AND 
STRAINS  WITH  THEIR  DIRECTIONS  AND  DETERMI 
NATION  OF  MIDPOINTS  OF  THE  MOHR'S  CIRCLE. 


00  370  J  =  l,3 

CCJ  )=AB*AfJ, Jl-AC 
CIJ  +  5)=(HH(J.1)-HH(J,3))/V2 
CCJ+  9)  =  (HH(J  *  1 ) *HH  t  J  »  3) )/V2 
CtJ+14)=tHHtJ,l)-HHfJ,2)>/V2 
CtJ+18)=tHHtJ  , 1 )  +  HH  t  J  »  2  ) )/V2 
CtJ+23)=tHHfJ,2)-HHtJ,3))/V2 
CtJ+27)=tHHtJ,2)+HHtJ,3))/V2 
370  CONTINUE 

C(  4>=0. 5*( A( 1 , 1)-A( 3. 3) ) 

C<  9)=0.5*tAtl,l)+At3>3)) 

C< 1 3 )  =  0 . 5«< A< 1 . 1)-At  2 . 2 ) ) 

Ct 18>=0. 5*<A( 1 . 1 )+At 2,2) ) 
C(22)-0.5«(A(2,2)-A( 3,3)) 

C127)  =  0. 5«t At 2,2)  +  At  3. 3) > 

Ct  S)=0. 5*tCt 1 )-Ct 3) ) 

Ct 141=0. 5* ( C  t 1 ) -C  t 2) ) 

Ct 23)  =  0 . 5«lCt 2)-Ct  3) ) 
iF ICf 1 3) .GT.C122 ) )G0  TO  385 
DO  380  1=1,9 

Ct I+30)*C( 1*12 ) 

Ct I  +  12)=C( 1  +  21  ) 

Ct 1*21 >=Cf 1*30) 

380  CONTINUE 

385  CONTINUE 


603 

611 


601 


ITER  BLOCK 

IFtISKIP.GT.O)GO  TO  699 
IFfEKEY.EQ. 3)G0  TO  603 
FLEXIBLE 

IFt IPOS.EQ. 1 )WRITEt6 ,906)Ct 1 ) »AX,AY .DEPTH 
IF  t  IPOS.  E  <2. 2  )WRITEt6 ,907)Bt  3, 3)  >AX,AY  ,  DEPTH 
GO  TO  611 
RIGID 

WRITEt  6, 908)At 1 , 1 ) ,AX»AY .DEPTH 
CONTINUE 

IFtEKEY.E0.3)G0  TO  620 

IFtEKEY2.GT.0)G0  TO  630 

FLEXIBLE  ALLOWABLE  LOAD 

GO  T0t601 ,604) , IPOS 

IFt ABStCt 1 ) ) . LT .STRLZ )G0  TO  400 

ASPHALT  CRITERIA  CONTROLLING,  SUBGRADE  NOT  NEEDED. 
IFtITER.EQ.O)  CALL  NF RD t 5 , I DNM , I ) 

ABSC 1 =C  t 1  ) 

IFfEKEY.EQ. 1 ) WR I TE f NOUT , 9 1 5 ) A LOAD . PS  I  2 . A A , BB  ,  RN , ABSC 1  .  S TRL 2 


00015100 
-00015110 
00015120 
-00015130 
00015140 
-00015150 
00015160 
000151 70 
00015180 
00015190 
00015200 
00015210 
000 1 5220 
00015230 
00015240 
00015250 
00015260 
00015270 
00015280 
00015290 
00015300 
00015310 
00015320 
00015330 
00015340 
00015350 
00015360 
00015370 
00015380 
00015390 
00015400 
00015410 
00015420 
00015430 
000  1  5440 
0001  54  50 
0001 5460 
00015470 
00015480 
00015490 
00015500 
00015510 
00015520 
00015530 
00015540 
00015550 
00015560 
00015570 
00015580 
00015590 

00015610 
0001 5620 
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r — 

582* 

IF(EKEY.£Q.2)NRITE(N0UT,916)AL0AD.PSI2»ES»XS,AS»BS»ABSC1»STRL2 

00015630 

583* 

TAWGHT=(2.0*NLOAD«ALOAD)/0 . 95 

00015640 

584* 

MR  I TE  (  NOU  T «911 ) T AMGHT 

000)5650 

585* 

NP0S3*NL0AD 

00015660 

586* 

CALL  P0ST(X.Y,NP0S3.LAY.AXX, AYY , DE P , E T AA ) 

00015670 

587* 

ITER*  1 

00015680 

588* 

ISKIP*1 

00015690 

589* 

GO  TO  580 

00015700 

590* 

404 

IF( ABS(B( 3. 31) . LT.STRL )G0  TO  680 

00015710 

591* 

VSTR*B( 3, 3) 

00015720 

592* 

IF (EKEY.EO.l)MRITE(NOUT. 9091ALOAD.PS! 2, AA.BB.RN.VSTR.STRL 

00015730 

593* 

IF(EKEY.EQ.2)MRITE(NOUT,910>ALOAD,PSI2,ES,XS>AS,BS.VSTR,STRL 

00015740 

594* 

TAUGHT*(2.O*NLOAD*ALOAD)/0.95 

00015750 

595* 

MR  I TE ( NOU  T , 9 1 1 ) T  AMGHT 

00015760 

594* 

NP0S3*NL0AD 

00015770 

597* 

CALL  P0ST(X,Y,NP0S3»LAY,AXX,AYY»DEP,ETAA) 

00015780 

598* 

I TE  R  *  1 

00015790 

599* 

I SK I P  *  1 

00015800  ' 

600* 

GO  TO  580 

00015810 

401* 

420 

CONTINUE 

00015820 

402* 

C 

RIGID  OVERLAY 

00015830 

403* 

IF(EKEY2.NE.2)GO  TO  440 

00015840 

404* 

IF (ABS(A( l , 1 )  )  . GE . STSL ) GO  TQ  690 

00015850 

405* 

ABSRS=ABS< All , 1  )  ) 

000)5860 

404* 

HRITE(NOUT,912)DSM. ABSRS, STSL, THICK! 1 ) 

00015870 

407* 

NPOS  3  =  NL  0 AD 

00015880 

408* 

CALL  P0ST(X,Y,NP0S3.LAY,AXX,AYY,DEP,ETAA) 

00015890 

409* 

ITER=1 

00015900 

410* 

ISKIP*1 

00015910 

411* 

GO  TO  580 

. 00015920 

412* 

440 

CONTINUE 

00015930 

413* 

C 

RIGID  ALLOMABLE  LOAD 

00015940 

414* 

IF (ABS(A( 1 , 1 ) ) . LT. STSL 1GO  TO  680 

00015950 

415* 

RSTS  =  A  <  1,1) 

00015960 

414* 

MRITEINOUT, 91 31ALOAD.PS! 2. FS.DSH.RSTS, STSL 

00015970 

417* 

TAMGHT *  <  2 . 0*NLQAD*AL0AD )/0 . 95 

00015980 

418* 

MRITEINOUT ,91 1 )TAMGHT 

00015990 

419* 

NPOS3=NLOAD 

00016000 

420* 

CALL  P0ST(X,Y.NP0S3, LAY.AaX.AYY.DEP.ETAA) 

00016010 

421* 

1  TER  *  1 

00016020 

422* 

ISXIP*1 

00016030 

423* 

GO  TO  580 

00016040 

424* 

480 

CONTINUE 

00016050 

425* 

C 

INCREMENT  LOAD 

00016060 

426* 

DO  670  17*1 , NLOAD 

00016070  1 

427* 

L  OSTRS ( I7)*ALOAD+ALIN 

00016080 

428* 

470 

L0STRS(I7)*LDSTRS(I7J/CAREA 

00016090 

429* 

ALOAD*ALOAD+ALIN 

00016100 

430* 

LOAO*LDSTRS( 1 ) 

00016110 

431* 

PSI 2*  LOAD 

00016120 

432* 

I  TER “  l 

00016130 

433* 

GO  TO  580 

00016140  ; 

434* 

430 

CONTINUE 

00016150  | 

ii 

L 

B-22 

i* 

i 

i  : 
# 

\ 

l  ' 

i 

l 

6  35* 

C 

FLEXIBLE  OVf RLAY 

00016160 

6  36  * 

GO  TO(631»6'2)»I POS 

00016170 

637* 

631 

CONE  =C ( 1 ) 

00016180 

638* 

GO  TO  400 

00016190 

6  39* 

632 

IF(ABS(CONE ) .GE .STRL2  .OR.  ABS ( B ( 3 , 3 ) ) . GE . ST R L ) GO  TO  690 

00016200 

640* 

ABC  1  * ABS ( CONE ) 

00016210 

641  * 

ABSV 1 2  =  ABS ( B ( 3,3)) 

00016220 

642* 

WRITE(N0UT,9  14)D5M, ABC1 , ST R L 2 , ABSV 1 2 , ST R L  ,  TH I CK (  1  ) 

00016230 

643* 

NPQS3=NL0AD 

0001 6240 

644* 

CALL  POST ( X . Y , NPOS  3 , LAY ,AXX»AYY , DEP»ETAA) 

00016250 

645* 

I TE  R  =  1 

00016260 

646* 

I SK I P  =  1 

00016270 

647* 

GO  TO  580 

00016280 

648* 

690 

CONTINUE 

00016290 

649* 

C 

INCREMENT  TMCKNESS 

00016300 

650* 

THICK! 1 )  =  ATh ICK+ATLIN 

00016310 

651* 

ATHICK  =  ATHIC  K  +  ATL IN 

00016320 

652* 

DO  666  I T  =  l .NPOS 

00016330 

653* 

666 

DE  P ( I T  J  ~  D£  P f  I  T  )  +  A  TL  I N 

00016340 

654* 

I  T  E  R  =  1 

00016350 

655* 

GO  TO  580 

00016360 

656* 

699 

CONTINUE 

00016370 

657* 

C 

00016380 

6  53  „  c**.*************** *****************************************************00016390 


659*  C  00016500 

660*  C - 00016510 

661*  C  OUTPUT  FOR  PRINCIPAL  STRFSSES, ETC. MAXIMUM  00016520 

662*  C  SHEAR  STRESSES, ETC  AND  STRAIN  ENERGIES.  00016530 

663*  C - 00016550 

665*  390  WRITE! NOUT, 9130 >A(1 ,  1  ) ,CC 1  )  ,HH(  1  , 1  )  ,HH( 2  ,  1  )  ,HH(  3,  1  )  ,  00016550 

665*  +  AC  2 ,2 1 ,C(2) . HH ( 1 , 2) ,HH( 2, 2 ) ,HH(  3, 2) ,  00016560 

666*  +  AC  3, 3) ,C< 3) ,HHC I , 3) ,HH(2, 3) ,HHC  3, 3) ,  00016570 

667*  +  CCC I ) , 1*5 , 30 )  0001 6580 

668*  BX  *  ( AC  1 , 1 )*CC 1 l  +  At 2 , 2 )*CC 2 ) ♦ A C 3 , 3)*CC 3) >*0 . 5  00016590 

669*  BV  =  0 . 6666667*AB*CCC5 )»C C5J  +  CC 1 3)*C ! 1 3 >+C I  22 )*C C  22  ) )  00016500 

670*  WRITECNOUT ,9200)  BX , BY  00016510 

671*  500  CONTINUE  00016520 

672*  GO  TO  560  00016530 

673*  510  WRITECNOUT. 9150)  J  00016550 

675*  GO  TO  550  00016550 

675*  520  WRITECNOUT, 9180)  J  00016560 

676*  GO  TO  550  00016570 

677*  530  WRITE  CNOUT.9190)  00016580 

678*  C - * - 00016590 

679*  C  FOR  SYSTEMS  FOR  WHICH  IT  IS  CLEAR  THAT  00016600 

680*  C  MISTAKES  OCCUR  IN  THE  INPUTCARDS , THE  00016610 

681*  C  REQUEST  AND  POINT  INPUT  CARDS  ARE  SK I PPE D . 000 1 66 2 0 

682*  C  PROGRAM  PROCEEDS  BY  TAKING  NEXT  SYSTEM.  00016630 

683*  C - 00016650 

685*  550  READ  CNIN.9I50)  00016650 

685*  READCNIN.9030)  NPOS  00016660 

686*  DO  550  1*1. NPOS  00016670 

687*  550  READ  CNIN  .9150)  00016680 
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440  CONTINUE 

WRITEINOUT.9160) 

STOP 

900  FORMAT ! 1H 1 ,  /  /  5 ! 2H  *  ), 

1' FLEXIBLE  PAVEMENT 
2 ' L  0  A  D  ',5!2H«  ) ( 1 H»  >/ , 

3 ' STR L ( SUBGRADE  LIMITING  STRAIN)  *  • 
4'STRL2! ASPHALT  LIMITING  STRAIN)  =  * 
5  *  A  L  0 AD  *  '  ,  F 1 5 . 0/, ' AL IN  =  '.F15.0/, 
4 60 (  1H«)  ,////) 

901  FORMAT! 1H1 ,//5!2H»  ). 


A  L  L  0  U  A  B  L  E 


F15.8/, 
F  IS . 8/ , 


44X. 'LIMITING  SUBGRADE  STRAIN  * 


'  ,F6.0//, 

• ,F12.D//, 

* ,F6.0//, 

'  , F6 . 2//, 

•  ,  F6  .  2//, 

* ,F15.8/,60I )«»>✓///> 


55X. 'LIMITING  ASPHALT  STRAIN  =  ' , F 1 5 . 8/ , 6 0 C 1 H « ) //// ) 

904  FORMAT! 1H1 ,//5i 2H*  ),23HO  VERLAY  OVER, 

1 3 1 H  RIGID  PAVEMENT  ,5I2H«  )) 

905  FORMAT!////6011H*)/,20X, 'DSM  =  ',F6.0//, 

A  20X , ' SUL  ■=  ' , F 1 2 . 0// , 

B  20X , ' FS  =  ' , F  6 . 0// , 

1  20X»  'ATHICK  *  '  , F  6 . 2 // , 

2  20X , ’ ATL IN  ■  ' , F  6 . 2// , 

3  2  OX , ' S  TSL  *  ' ,F15.8/,60I 1H»>////) 

906  FORMAT! 'MAXIMUM  NORMAL  STRAIN  =  ' , F 1 5 . 8 . 3F 1 5 . 2// ) 

907  FORMAT! 'VERTICAL  STRAIN  *  • , F 1 5 . 8 . 3F 1 5 . 2// ) 

908  FORMAT! 'MAXIMUM  NORMAL  STRESS  =  ’ , F 1 5 . 8 , SF 1 5 . !// ) 

909  FORMATI//20X, ' ALOAD  *  ' , F 1 0 . 0// . 22X , ' PS  I  *  '  . F 1 0 . 2 , // 

IIOX.'AA  *  ' , F 1 2 . 8 , '  BB  =  ',F12.8.'  RN  ’  '.F12.0, 

2//16 1 1H»> , • VSTR  »  '.F12.8,'  STRL  =  '  , F 1 2 . B , 1 6 i 1H« > //// ) 

910  FORMATI//20X, 'ALOAD  -  ' , OPF 1 0 . 0// , 2 2X , ’ PS  1  *  '.0PF10.2,// 

I.IOX.'ES  *  ' .0PF12.O.3X, 'XS  =  ', 

20PF8.0,  7X, 'AS  *  '  ,0PF12  .  (,//,  'BS  =  '  ,  OPF  1  2 . 6// , 

A16!  IH»)  , 'VSTR  =  ' , OPF I  2 . 8 , 

3'  STRL  »  ' .0PF12.8, 16! lH*>////> 

911  FORMAT!///20X ,' TOTAL  ALLOWABLE  WEIGHT  =  ',F10.0/v/> 

912  FORMAT! 1H1 ,40! 1H» )/, 60! 1H» )/,20X, 'DSM  *  '.F6.0//, 

1  20X , ' ABSRS  *  ' , F l 5 . 8// , 

2  20X, *  STSl  *  '.F15.8//, 

3  20X, 'FINAL  THICKNESS  =  ',FB.2/, 

4  60! 1H* >/, 60! 1H» )////) 

913  FORMAT! 1H1 ,401 1H« )/, 40! 1H* )/,20X , 'ALOAD  *  '.FIO.O/V. 

1  20X , ' PSI  ■  ' , F6 . 0// , 

2  2  OX , ' F  S  *  a.F6.0//. 


'  , F 1 0 . 0/// ) 

*  '  ,  F  6 . 0// , 

*  '  ,  F 1 5 . 8// , 

*  ' .FI5.8//, 


00016690 

00016700 

00016710 

00016720 

00016730 

00016740 

00016750 

00016760 

00016770 

00016790 


699« 

A58HR  I  5  I  D  PA 

V  E  M 

ENT 

ALLOWABLE  LOAD, 

00016800 

700* 

B5(2H*  ).////60< 1H«)/* 20X 

9  'FS 

=  *,F6.0//. 

00016810 

70 1 A 

l 

2  0  X  ,  * 

DSM 

'  #F6  . 0// . 

00016820 

702* 

2 

20X  ,  * 

ALOAD  = 

•\  F6 . 0//  f 

00016830 

703* 

3 

2  0  X  ,  * 

ALIN  = 

'  ,F6  . 0//, 

00016840 

704* 

4 

20X  ,  « 

STSL  = 

•  ,  F  1  5 . 8  , / 6 0 ( 1H« )////) 

00016850 

705* 

902 

FORMAT ( 1H1 ,//5<  2H« 

) , 1 9H0  V  E  R 

LAY  0  V, 

00016860 

706* 

1 4 1 H  E  R  F  L  E  X  I 

B  L 

E  PA 

V  E  M  E  N  T  , 5( 2H*  ) ) 

00016870 

707* 

903 

FORMAT (////60( 1H* )/ 

9  2  OX  • 

•  DSM 

*  ' , F  6 . 0// 9 

00016860 

708* 

A 

2  OX  i 

•SWL 

=  '  9  F 1 2 . 0// 9 

00016890 

709* 

1 

20X, 

’ATHICK 

*  *  ,  F  6 . 2// 9 

00016900 

710* 

2 

20X, 

’  ATLIN 

=  *  9  F 6 . 2// 9 

00016910 

00016920 
00016930 
00016940 
00016950 
00016960 
00016970 
00016980 
00016990 
00017000 
00017010 
00017020 
00017030 
00017040 
00017050 
00017060 
00017070 
00017080 
00017090 
00017100 
00017110 
00017120 
000171 30 
00017140 
00017150 
000171O0 
00017170 
00017180 
00017190 
00017200 
00017210 
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J  20X,’0SM  =  *  , F  6 . 0//  ,  0001  7220 

4  20X,'RSTS  =  '.F15.8//.  0001  7230 

5  2 0 X  i  '  STSL  =  '  ,  F  1  5 . 6  »  00017240 

4  /40 ( 1H* 1/ , 60 ( 1H* ) //// 1  00017250 

914  FORMAT! 1H1 ,40( lH»l/,60( 1H«>/, 20X, 1 DSM  =  '.F6.0//,  00017260 

A  20  X i  *  ABC  1  =  *,F15.8//,  0001  72  70 

B  20X,'STRL2  =  '.F15.8//,  00017280 

1  2  0  X  ,  ' ABSV 1 2  =  '.F15.8//.  00017290 

2  2  0  X  , ' ST  R  L  =  *  .  F 1 5 . 8 // ,  000  1  7300 

3  20X. 'FINAL  THICKNESS  =  '.F8.2/,  00017310 

4  60 !  1H*  1/ ,  60! 1 H* )//// )  000  1  7  320 

915  FORMAT ! //20X ,  'ALOAD  =  • , F 1 0 . 0// , 22X , ' PS  I  =  '.F10.2,//  0001  7330 

HOX.'AA  =  '  ,  F  1  2 . 8  ,  '  BB  =  ',F12.8,'  RN  =  ',F  12.0  .  000  1  7360 

2//16I  1H«) ,  'ABSC1  =  ',F12.8,'  STRL2  =  '  . F  1  2 . 8 ,  1 6 ( 1 H • ) /// / )  000  1  7350 

916  FORMAT(//20X,  'ALOAD  =  '  , OPF 1 0 . 0 // . 22 X ,  • PS  I  -  '.0PF  1  0.2  ,//  000  1  7360 

l.lOX.'ES  =  ' , OPF 12 . 0 . 3X , • XS  =  • , OPF 8 . 0 , 7X , ' AS  =  '.0PF12.6//,  00017370 

2’BS  =  '  ,  OPF  1  2  ,  (,//,  16  (  1H*  1  ,  •  ABSC  1  =  ',QPF  12.8,  0C0  1  7380 

3'  STRL2  =  ' , OPF 12 . 8. 16! 1H« >////)  00017390 

9000  FORMAT(lHl,17X,ll('B'l,5X,'lII'.5X,llC'S'),6X,9t'A'),5X,ll('R')/  00017900 

+  18X,12('B'),4X.'II1',4X.12('S').5X,11('A').4X,12('R')/  00017410 

♦18X.'BB',8X.'BBB  III  SSS’,14X.'AAA',7X.'AAA  RR'.SX.'RRR'/  000179  20 
♦I8X,'BB'.9X,'BB  III  SS'.15X,'AA',9X,’AA  RR',9X,'RR’/  00  0  1  74  30 

+  18X, ’BB’ ,7X, 'BBB  III  SSS ' . 1 4 X , ' A A ' . 9 X . ' A A  RR'.BX.'RR'/  00017440 

♦iaX,lll'B').5X,'lII'.4X,ll!'S'),5X.13<'A').3X.12l'R')/  00017  4  50 

+  18X, 11< 'B' ) . 5X , ' III ' . 5X, 11 < 'S'  1 ,4X. 1 3< ' A' ) . JX. 1 1 ( 'R' )/  00017460 


7  6  6* 

♦  18X, 

i  '  BB ' . 7X i 

'BBB 

I  1 1 '  . 14X . 'SSS 

AA' ,9X, 'AA 

RR ' , 5X. ' RR* / 

00017470 

767* 

♦  18X. 

'BB' . 8X , 

•BB 

1 1 I ' , 15X,  'SS 

AA* i 9X i 'AA 

RR '  , 6X,  '  R  R  '  / 

0  00  1  7460 

768* 

♦  18X, 

' BB' . 7X , 

'  BBB 

I I I ’ . 14X. 'SSS 

AA ' , 9X , • AA 

RR',7X,'RR'/ 

000  1  7490 

769* 

♦  1  8X  . 

.  1  2  1  '  B  '  )  , 

4X  ,  • 

1 1 1 

• , JX, 1 Jt 'S' ) ,4X 

,  '  AA*  . 9X,  ' AA 

RR*  *  ft  X  *  *RR'/ 

0001 7500 

770* 

♦  18X, 

1  1  1  '  B  '  )  , 

5X  ,  • 

in 

'  .  3X. 12! 'S' ) . 5X 

»  ' AA  *  , 9X .  ' AA 

R  R  '  ,  9  X  »  '  R  R  '  //// 

'  00017S10 

♦  75X. 'THIS 


PROGRAM  HAS  BEEN  OBTAINED  F ROM ' / S9X , • SHE L L  RES00017520 


+  E  ARC  H  B . V .  ' /89X .  ' FOR  THE  SOLE  USE  0F’//76X,  0D  0  1  7  5  30 

♦'SHELL  OIL  COMPANY ' /76X . 'HOUSTON,  TEXAS’  00017540 

♦  //76X* 'ALL  RIGHTS  ARE  R E S E R V E D . 0 0 0 1 7 5 5 0 

♦  USE  OF  THIS  PROGRAM’/76X, 'BY  UNAUTHORIZED  PERSONS  IS  PROM  I B I T E 0 '  1  0 0 0  1  7 56  0 

9010  FORMAT ( 1 5A4 )  000175'0 


9020  FORMAT! 1H1 , 251/1 . 15X, 15A4 1 
9030  FORMAT! 12 , 13. 1 1 1 
9040  FORMAT!’  NOTE  THAT  ’.E12.6, 
♦E  LOADS  IN  STRESS  UNITS’l 
9050  FORMAT ! 4E 1 2 . 6 1 
9060  FORMATI26A3.A2) 


0001 7S'0 
0001 7580 
0001 7590 

WILL  BE  CONSIDERED  TO  B00017600 

00017610 

00017620 

00017630 


9070  FORMAT!'  NOTE  THAT  INCORRECT  SPELLING  HAS  NOT  STOPPED  THE  E VA L U A T I  0 00  1  7640 
♦ON  OF  STRESS '. 4X . A3 )  00017650 

9080  FORMATII2.4E12.6)  00017660 

9090  FORMATI1H1 ,///52X, 'POSITION  NUMBER  ’ . I 2//54X ,  ’ L A YE R  NUMBER  '  ,  I  2  // 00 0  1  76  70 
♦  55X.  'COORD  I  NATES  '//46X,  'X',11X,'Y',UX,’Z’/4  0X,3E12.4>  00017680 

9100  FORMATI/21X, 'DISTANCE  TO  LOAO-AX I S ! ' . I  2 , ’ ) ' . 34X , • THE T A • / 2 5X . E  1  2 . 4 . 00 0  1  76 9 0 
♦41X.E12.4/1  00017700 

9110  FORMAT!//. SOX. 'THIS  POSITION  HAS  BEEN  OMITTED  SINCE  THE  LAYER  NUMB00017710 
♦ER  IS  INCORRECT’)  00017720 

9120  FORMATl/30X,'XX',10X,'YY'.10X,'ZZ'.10X,'YZ',10X,'XZ’.10X.’XY'.10X.0001’?30 
♦'UX'.lOX.'UY'.lOX.'UZ'l  00017740 


7  99* 
79  5* 
796* 
797* 
798* 
799* 
800* 
801* 
802* 
801* 
805* 
805* 
806* 
807* 
80S* 
809* 
810* 
811* 
812* 
613* 
816* 
815* 
816* 
817* 
818* 
819* 
820* 
821* 
822* 
82  3* 
829* 
825* 
826* 
827* 
828* 
829* 
830* 
831* 
832* 
833* 
839* 
835* 
836* 
837* 
838* 
839* 
890* 
891* 
892* 
893* 
899* 
895* 
896* 


00017830 

00017890 

00017850 

00017860 

00017870 

00017880 


9130  FORMAT!/'  PRINCIPAL  VALUES  AND  DIRECTIO  N00017750 

♦  S  OF  TOTAL  STRESSES  AND  STRAIN  S • / 1 5X , • NOOOO 1 7760 

♦  RMAL ’ ,9X, 'NORMAL ',9X,'SH EAR', 10X,  ' SHEAR', 13X,'X',19X,'Y',19X,'Z'/100017770 

♦ SX,’ STRE SS'.9X. 'STRAIN', 9X, 'STRESS', 9X  , 'STRAIN', 9X, 'COMPONENT' .6X. 0001 7 780 
♦'COMPONENT' ,6X. 'COMPONENT '/ '  MAXIMUM* ,2-15.3,30X,3F15.3/'  MINIMAX'00017790 
♦. 2E15. 3. SOX. 3F15. 3/'  MINIMUM’,2E15.3.30X.3F15.3/'  MAXIMUM' ,30X,2E 10001 7800 
♦5. 3, 3F15. 3/8X.E15 . 3.95X. 3F 15 . 3/'  MINIMAX' , SOX , 2E 1 5 . 3 , 3F 1 5 . 3/8X ,  00017810 

♦E15.3.95X.3F15.3/'  MINIMUM'.30X,2E15.3,3F15.3/8X>E15.3,95X,3F15.31000I7820 

9190  FORMAT!'  THE  PROBLEM  CANNOT  BE  SOL VE 0 . NU ( ‘  .  I  2 , ' )  EQUALS  ONE') 

9150  FORMAT!/) 

9160  F0RMATI1H1) 

9170  FORMAT(A9.6X,6F10.0) 

9180  FORMAT!'  THE  PROBLEM  CANNOT  BE  SOLVED . E t '. 1 2 .' )  EQUALS  ZERO') 

9190  FORMAT! '  SYSTEM  SKIPPED  NO  LOADS') 

9200  FORMAT! 1H0. 1 3X, '  STRAIN  ENE RGY • , E 11 . 9/ '  STRAIN  ENERGY  OF  DISTORT  10000 1 7890 
♦N',E11.9)  00017900 

END  00017910 

SUBROUTINE  SYSTEM! ISYS. E. NU, THICK, AK.NLAYS,M,NLOAD,LDSTRS,HOSTR,  00017920 
1ALK, RADIUS. X.Y.PSI. ISMO. I  RED)  0001  79  30 

C - 0001  7990 

C  THIS  SUBROUTINE  OUTPUTS  ALL  PHYSICAL  DATA  00017950 

C  OF  THE  MULTI-LAYERED  SYSTEM  AND  ALL  DATA  00017960 

C  ON  CONFIGURATION  AND  MAGNITUDE  OF  THE  00017970 

C  LOADS.  00017980 

C - 00017990 

INTEGER  R0UGH!2) . SMOOTH l 2 ) . ISMTH! 2)  00018000 

REAL  E 1 10) ,NU! 10) .THICK! 9) , AK! 9 ) , AIKI9) , LDSTRS! 10) , HOSTR! 10 ) ,  00018010 

1RADIUSI10),X!10).Y!10).PSI!10)  00018020 

COMMON/TAPE/NOUT  00018030 

DATA  ROUGH, SMOOTH/'ROU' . 'GH  ' , ' SMO ' , ' OTH ' /  00018090 

WRITE INOUT , 1001 )  ISYS  00018050 

IFIIRED.EQ.O)  WRITEINOUT. 1002)  00018060 

IF! IRED.NE .0)  WRITE!NOUT, 1007)  00018070 

IFINLAYS.EQ. 1 )  GO  TO  90  00018080 

DO  30  1*1. M  00018090 

IF  I ISMO . EQ .  1  )  GO  TO  10  00018100 

ISMTH! 1  )  =  ROUGH  II)  000181  10 

ISMTHI2)  *  ROUGH !  2  )  00018120 

IF ! ALKI I  )  .  LT  .  100 . 0  )  GO  TO  20  000181  30 

10  ISMTH!  1  )  =  SMOOTH  II)  00018190 

ISMTHI2)  *  SMOOTH (  2  )  00018150 

20  WRITEINOUT, 100  3)  I , I SMTH < 1 ) , I SMTH I  2 ) , E ! 1 ) . NU (  I  )  . T H I C K ! I )  ,  A K I  I  )  00018160 
30  CONTINUE  00018170 

90  WRITEINOUT. 1009)  N L A YS , E ( N L A Y S ) . NU I NL A Y S )  00018180 

WRITEINOUT, 1005)  00018190 

DO  50  I  ■  l.NLOAD  00018200 

50  WRITEINOUT,  1006)  I , LDST R S I  I ) , HOST R ! I ) . RAD  I  US  1  I ) , X 1  I ) , Y I  I ) , PSI I  I )  000182  10 

1001  F0RMATI1H1, 10!/), 52X, 'SYSTEM  NUM8E  R ' , 3X . I  2  >  00018220 

1002  FORMAT! 51/1 ,8X, ' LAYER ',9X,'CALCULAT1 ON ’,2X, 'YOUNG' 'S’,9X,' POISSON' 00018230 

l'S', 3X, 'THICK NESS',3X, 'INTERFACE' /8X.' NUMB ER'.3X, 'METHOD ',7X, ' MODUOOO 1 8290 
2LUS ',9X,' RATIO', 18X, ' SPR I NGCOMPL  * / )  0  00182  50 

1003  FORMAT! 10X, 12 , 5X.2A3, 3X.9E 12 . 9)  00018260 

1009  FORMAT! 10X, 12, 19X.2E12 .9 )  00018270 
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84  7* 
848* 
849* 
850* 

8  5  1  * 
852* 
853* 
854* 
855* 

8  56  * 
857*  C 
858*  C 
859*  C 
860*  C 
86  J  *  C 
862*  C 
863*  C 
864*  C 
365*  C 
866*  C 
867*  C 
868*  C 
869*  C 
8  i  0  *  C 
871* 
872* 
873* 
874* 
875* 

8  76* 
877* 
878* 
879* 
880- 
881  * 
882* 
383* 
884# 
885* 
386* 
887# 
888* 
889# 
890* 
891  # 
892# 
893* 
894# 
895* 
896# 

89  7# 
898# 
899* 


100  5  FORMAT C ///8X , 'LOAD*  ,  5X  ,  'NORMAL*  ,  7X  , * SHEAR'  »5X>  'RADIUS  OF  * , 7X  ,  *  LOAD 0  0 018280 
1  -  POSITION'  .  6  X  ,  'SHEAR* /8X.  ‘NUMBER’ ,  3  X  , ’STRESS*  ,  7X  ,  ’STRESS'  ,  4  X  ,  00018290 

2'IOADED  AREA*  ,  6X  . *X* , 1  1 X » '  Y  * ,7X» 'DIRECTION'/)  00018300 

1006  FORMAT( 10X, 12. 2X,6E12 .4)  00018310 

1007  F0RMAT(5(/) »  8X  , 'LAVER* 'CALCULATION' ,  2  X  , 'YOUNG* 'S’ »4X* 'POISSON* 00013320 

I'S*  .  3X  ,  '  THICKNESS'  »  3X  .  '  REDUCED'  /8X,  ’NUMBER*  ,  3X,  'METHOD*  ,7X,  'MODU 00018330 
2LUS* ,  4X . 'RATIO’ » 18X* 'SPRINGCOMPL '/>  00018340 

RETURN  0001 8350 

END  00016360 

SUBROUTINE  MACON1C I SMO , A L K , NS Y S  )  00013370 

- - - -  - - -  - - -  000  1  6  3 8 C 

00018390 
00018400 
00018410 
0  0  0 1 84  2  C 
00018430 
00018440 
00016450 
00018460 
000184 7 G 
0001 8480 
COO  184  90 
00018500 

- 00018510 

REAL  K1,K2,K3(10),K4(10),K5,K6,NU,II.L0AD,ACCUR(3>,ALK(9)  00018520 

COMMON/ ASDT /LAYER .NLAYS.M. R  >Z»NU( 10) , AC  CUR . LOAD ,HOSTR$ , NZERDS , H (  9  )  0  00 1 8  5  3C 
1  »  K  5  (  1  0  ) »  E  (  1  0  ) *AL(9) ,THICK(9)  »  R  AD  I  US (  10)  00018540 

COMMON/INDATA/XMAX,  A1(9),B1(9),C1<9),D(9),EE(9),F(9>,G(9),H1(9), 00018550 
U  I  (9  )  ,K1  (9  )  ,  K2<  9)  .  K6(  10  )  ,BEC  9  )  ,B'J(  9  )  ,BUU(  9)  »  BMU  C  9  )  ,  B2U(  9  )  ,  B2UU(  9  ), 00018560 
2U2(9),J1 ,T2(20),SS(2, 2 0  )  , G 0 1 2 <  9 > , G02 1<  9 > , G 022 (  9 ) , G 1 22 ( 9 > , 

3H012(9) ,  H022  (  9  ) . H 1 2  2 ( 9 ) , DO  1 2 ( 9  ) , D0  22  (  9  ) ,  COl 1 ( 9 )  ,  CO  1 2 ( 9 )  ,  E  0  1  2  <  9  )  , 
4F012(9)»F112(9)»F022(9),CC(4,2»9)»DD(2»2»9)»FF(2»2.9),GG(2»2,10), 

5HH ( 2  »  2  » 10) »  R  R  (  4 , 2  * 10)»DD2(9)»G20C9) ,  G  2  1  (  9  ) .  H  2  0  (  9  ) >  H  0  2  1  <  9  )  »  GG 2  t 10) 

6HH  2  (  10),  00  11(9),  Q111(9),Q012(9),Q112<9),Q212(9>,Q022(9),  0122(9), 

7Q  F  0 ( 9 )  »  Q  F 1 ( 9 )  ,2011 »  Z 1 1 1 , Z  2 1 1 ,Z012»Z112,Z212,Z312,Z021  , Z 1  2  1  , 2  0  2  2  , 

8Z122 ,2222  ,K4 


THIS  SUBROUTINE  CALCULATES  CONSTANTS  USED 
IN  SUBROUTINE  MATRIX  TO  BUILD  UP  VARIOUS 
MATRICES . 

THE  CONSTANTS  /PE  STORED  IN 
COMMON/INDATA/ . 

NUMERICAL  STABILITY  OF  SO L U T 1 ONPR OC E DU R E 
FOP  THE  SYSTEM  IS  TESTED  BY  CALLING  IN# 
MA2CON , 

MATRIX 

WHEN  INSTABILITY  HAS  TO  BE  EXPECTED  THE 
SMOOTH  CALCULATION  PROCEDURE  IS  CHOSEN  BY 
TAKING  ISMO  *  1  AND  NSYS  IS  SET  EQUAl  1  . 


COMMON/TAPE/NOUT 
NSYS  =  0 

IF (NLAYS.EQ . 1 )  GO  TO  10 


GG< 1 , 1  , 1  ) 
GG ( 2 , 1 » 1 ) 
GG ( 1  ,  2  •  1  < 


GG  (  2  , 
HH(  1  , 
HH  (  I  i 
HH(  2  , 
HH(  2  , 
RR  (  1  , 
RR  (  1  , 
R  R  (  2  i 
RR  C  2 
R  R  f  3  , 


1  ) 

1  ) 

1  ) 

1  ) 

1  ) 

NL  AYS  ) 
NLAYS ) 
MLAYS  ) 
NLAYS  ) 
Nl AYS  ) 


RR ( 3  ,  2 .NLAYS )  * 


-1.0 
l  .  0 

1  . 0-2 . 0*NU(  1  ) 
2 . 0  *NU (  1  ) 

1  .  0 

GGC 1 , 2 , 1  ) 

1  .  0 

- GG ( 2 ,2,1) 

0.0 
0  .  0 
0  .  0 
0 . 0 
1  . 0 
0  .  0 


COO  1 8570 
00018580 
00018590 
000 1 860C 
000186  I  0 
00018620 
000  1  86  30 
00018640 
00018650 
0001 8660 
000186  70 
00018680 
00018690 
00018700 
0001871 0 
00018720 
00018730 
00018740 
00018750 
00018760 
00018770 
00018780 
00018790 
0001 6800 
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900# 

901# 

902# 

903# 

9  04# 

905# 

906# 

907# 

908# 

909# 

910# 

911# 

912# 

913# 

914# 

915# 

916# 

917# 

918# 

919# 

920# 

921# 

922# 

923# 

924# 

925# 

926# 

927# 

928* 

929# 

930# 

931# 

932# 

933#  C 

934#  C 

935#  C 

936#  C 

937# 

938# 

939# 

940# 

941# 

942# 

943# 

944# 

945# 

946# 

947# 

948# 

949# 

950# 

951#  C 

952#  C 


RR(4 .  1 »  NLA  VS  )  =0.0 
RR(4 , 2 .NLAYS)  =  1.0 
SS( 1 » NLAYS )  =  0.0 
SS(2, NLAYS)  =  1.0 
GG2 ( 1 )  *  1.0 
HH2  < 1 )  «-1.0 
10  K 5 ( 1 )  =  1 .0-2. 0»NU< 1  ) 

IFCNtAYS. EQ. I)  GO  TO  70 
K  =  0 

K  6 ( 1 )  =  4 . 0  # ( 1 . 0-NU( 1  )  ) 

DO  30  J*1  ,M 

K  1  (  J )  =  ( 1 . 0  +  NU (  J  +  1 >)#E(J)/C(1.0+NUCJ>>*E(J+1>> 
K 2 ( J )  =  1 . 0-K 1 ( J  ) 

K3( J  >=NU( J  +  l  )  -NU ( J  )  #K  1  ( J  ) 

K4( J ) =8 . 0#NU( J)#NU( J  +  l  ) 

K 5  C  J )  =  1 . 0-2 . 0#NU ( J  ) 

K  6  (  J  + 1  )  =  4.0#< 1 . 0-NU( J+l > ) 

A 1 ( J  )  3  K6(J)-K2(J) 

B 1 ( J  )  =  K2< J )  +  Kl ( J )#K6 ( J  +  l  ) 

Cl ( J >=2 . 0#K2< J) 

D  (J>=  K2< J )#( 1 . 0-4 . 0#NU( J  )  ) 

EE( J)=  K2(J)#( 1 . 0  +  K4 ( J  ) )-6.0#K3(J) 

F  <J>  =  Al(J)-BKJ) 

G  (J)=  K2(J)#(1 .0-K4(J))+2.0#K3(J) 

H1(J)=4.0#K2(J)#(NU(J+1 ) -NU ( J  )  ) 

II(J)=  D(J)-HKJ) 

30  CONTINUE 

K  5  (  M  ♦  1 )*1 . 0-2 . 0#NU< M+l  ) 

1FIISMO.EQ. 1 )  GO  TO  70 
DO  40  I  =  1 ,M 

!FCALK(I).LT. 100.0)  GO  TO  50 
40  CONTINUE 
GO  TO  70 


CALCULATION  OF  CONSTANTS  ONLY  NEEDED  IN 
MATRIX  FOR  STABILITY  TEST. 


50 


60 


THIN  =  1.0E+10 
NTELL  =  2 
DUMMY  =  0.0 
LAYER  =  NLAYS 
T2CNLAYS)  =  0.0 
DO  60  K  =  1  » M 

IF(THICKCK) .LT.TMIN)  TM1N  =  THICKCK) 
DUMMY  =  DUMMY+THICK ( K  ) 

T  2 ( K )  =  2 . 0#THICK ( K )/RADIUS( 1  ) 

H ( K )  =  DUMMY/RADIUS( 1  ) 

CONTINUE 

CALL  MA2CONCTMIN, 1 , ISMO, ALK  ) 

TX  =  6 . 6#RADIUS( 1 )/TMlN 
XMAX  =  T  X  ♦  1 . 0 


TEST  ON  NUMERICAL  STABILITY  OF  THE  SOLU- 


00018810 
00018820 
00018830 
00018840 
00018850 
00018860 
00018870 
Q0018880 
00018890 
00018900 
00018910 
00018920 
03018930 
00018940 
00018950 
00018960 
00018970 
00018980 
00018990 
00019000 
00019010 
00019020 
00019030 
00019040 
00019050 
00019060 
00019070 
00019080 
00019090 
00019100 
00019110 
00019120 
000191 30 
00019140 
00019150 
00019160 
00019170 
00019180 
00019190 
00019200 
00019210 
0001 9220 
00019230 
00019240 
00019250 
00019260 
00019270 
00019280 
00019290 
00019300 
00019310 
00019320 
00019330 
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9  5  3* 
954* 
955* 
956* 
957* 
958* 
959* 
960* 
961  * 
962* 
963* 
964* 
96  5* 
966* 
967* 
968* 
969* 
970* 
971* 
972* 
973* 
974* 
975* 
?.6* 
977* 
978* 
979* 
980* 
981* 
982* 
983* 
984* 
985* 
986* 
987* 
988* 
989* 
990* 
991* 
992* 
993* 
994* 
995* 
996* 
997* 
998* 
999* 
1000* 
1001* 
1002* 
1003* 
1004* 
1005* 


C 

C 

C 

C 

C 

c 

c 

c 

C-- 


T  ION-PROCEDURE  TO  BE  FOLLOWED  FOR  THIS 
SYSTEM  BY  CALLING  IN  THE  MATRIX  SUBROUTI¬ 
NE  WITH  NTELL  =  2  . 

AFTER  TEST  THE  SMOOTH  OR  ROUGH  CALCULATI¬ 
ON  PROCEDURE  IS  CHOSEN. 

TEST  IS  ONLY  NECESSARY  IF  NOT  DIRECTLY 
THE  SMOOTH  CALCULATION  PROCEDURE  HAS  BEEN 
CHOSEN  BY  I  SMO= 1  . 


CALL  MATRIX! TX, 1 , NTELL ) 


00019340 
00019350 
00019360 
00019370 
00019380 
00019390 
00019400 
00019410 
-00019420 
000  194  31 


IF (NTELL . EQ . 2 )  GO  TO  70  00Q1944C 

ISMO  =  1  00019450 

NSYS  -  1  3001 9460 

WRITE(NOUT ,  1001  )  000  1  94  70 

70  RETURN  00019480 

1001  FORMAT ( *  THE  MORE  STABLE  SMOOTH  CALCULATION  PROCEDURE  HAS  BEEN  CH000019490 
1 S  E  N .  '  )  00019500 

END  00019510 


SUBROUTINE  CONS Y  S ( A ID,NZEP.NZ£Q»N,L) 


THIS  SUBROUTINE  DETERMINES  FOR  EACH  SYS¬ 
TEM  THE  CYLINDRICAL  COMPONENTS  NEEDED  FOR 
COMPUTATION  OF  THE  REQUIRED  CARTESIAN 
COMPONENTS  OF  S 1 R E SS E S , S T R A  I NS  AND  DISPLA¬ 
CEMENT.  GIVEN  THIS  SET  OF  COMPONENTS  A 
FURTHER  SELECTION  IS  PERFORMED  ON  THE 
COMPONENTS  THAT  CAN  BE  COMPUTED  WITH  THE 
INTEGRALS. 

CONSYS  CALLS  IN  SUBROUTINE  LOGSET 


LOGICAL  AID(27)»NZEP»NZEQ,EPS(5) » N  ,  L 
INTEGER  J  A RG ( 6  , 14) 


DATA  JARG/ 

1  4 ,  5,  7,18,19.21, 

214, 1  5,25,27,  0,  0, 

3  4,10,12,  0,  0,  0, 

4  4,  5,12,  0,  0,  0, 

523,24,26.  0,  0,  0, 

E  PS ( 1 ) 

EPSC  2) 


8  . 


9.20,22,  0 .  0 • 
0  , 

0  ,  0  , 
0,  0, 


1 ,  2,16,17, 

4,  5,10,  0, 

16,17.  0 ,  0  , 
20,22.25,27,  0 ,  0/ 
A  I D ( 1 8 ) . 0  R . A  I D ( 19) .OR . A  1 D ( 2 1  ) 
AID( 20) .OR . AID( 22  ) 

A  I  D  (  2  3  )  .  0  R  .  A  I  D  (  2  4  )  .  Q  R  .  A  I  D  (  2  6  ) 

5) .OR . AIDL27) 


10,11,13,23.24,26, 
5,10,12,  0,  0.  0, 
4.  6,12,  0,  0,  0. 
18,  1  9,21 ,23,24,26, 


AID( 16 ) .OR . AID( 17) 
=  1,5 


EPS ( 3 ) 

EPSC4)  =  A I D ( 

EPS( 5) 

DO  10  I 

I F ( .NOT . EPS( I))  GO  TO  10 
CALL  LOGSET( JARGC 1 . I ) , AID) 

10  CONTINUE 

IF ( AID( 10 ) . AND. .NOT . NZEQ)  AID(  4)*. TRUE. 
I F ( A  I D (  6)  .AND. .NOT.NZEP)  A  I D < 1 2 ) = . TRUE . 
I  F ( A  I  D (  4))  CALL  L OGSE T ( J A R G ( 1 ,  6), AID) 
IF ( AID( 10 ) >  A I D ( 1 1  )  K  .  TRUE  . 

IF ( AID(  5))  AIDC 1 1 ) = . TRUE . 

I  F  (  A  I  D  (  1  2  )  )  A  I  D  (  6M.TRUF  . 


00019520 
-00019530 
00019540 
000  1  955C 
00019560 
00019570 
00019580 
00019590 
00019600 
00019610 
00019620 
00 0)9630 
00019640 
00019650 
00019660 
0001967C 
0001 9680 
000  1  9690 
0001 9700 
0001 971 0 
0  00  1  9  720 
00019730 
000  1  9  740 
00019750 
000  1  9  76C 
0001 9770 
0001  9  7B0 
00019790 
00019800 
00019810 
00019820 
00019830 
0001 9e40 
00019850 
0001 9860 
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1006* 

1007* 

1008* 

1009* 

1010* 

1011* 

1012* 

1013* 

1016* 

1015* 

1016* 

1017* 

1018* 

1019* 

1020* 

1021* 

1022* 

1023* 

1026* 

1025* 

1026* 

1027* 

1028* 

1029* 

1030* 

1031* 

1032* 

1033* 

1036* 

1035* 

10  36* 
1037*  C 
1038*  C 
1039*  C 
1060*  C 
1061*  C 
1062*  C 
106  3* 
1066* 
1065* 
1066* 
1067* 
1068* 
1069* 
1050* 
1051* 
1052* 
106J*  C 
10J6*  C 
1055*  C 
1056*  C 
1057*  C 
1058*  C 


IF(AID<  8))  A1D116)=.TRUE. 

IF (AID( 16  >  >  A  I D (  8 )  =  . TRUE . 

I F  <  A  I D (  5 ) . AND .  A I  D  t  61)  CALL  LOGSE T ( J ARG ( 1 ,  7), AID) 

IFIAIDI 11 ) . AND . A  I D I 12) )  CALL  L OGSE T ( J A R G ( 1 ,  8), AID) 

IF( .NOT.NZEQ)  GO  TO  20 
IFIAIDI  7))  AID! 1 3 ) > . TRUE . 

IF  <  AID! 1 3 )  )  AID(  7  )  =  . TRUE . 

IFIAIDI  9))  AIDU5)  =  .  TRUE  . 

IFIAIDI 15) )  AID!  9  J  = .TRUE  . 

I F I A 1 0 1  5 1 . AND . A  I D 1 1 0 ) )  CALL  LOGSE T I J ARGI 1 ,  9), AID) 

IFIAIDI  6 ) . AND . AID! 10 ) )  CALL  L OGSE T I J ARG I  1 , 1 0 ) , A I D > 

IFIAIDI  1). AND. AID!  2))  CALL  L OGS E T I J A RG I  1 , 1 1 ) , A  I D ) 

IFIAIDI  6). AND. AID!  7))  CALL  l OGSE T I JARG I  1 . 1 2 ) . A  I D ) 

IFIAIDI  7)  .AND. AID! 101)  CALL  LOGSE T I J A RG I  1 . 1 3 ) , A  I D ) 

IFIAIDI  8). AND. AID!  9))  CALL  LOGSE T ( JARG I  1 . 1 6 )  , A  1 D ) 

GO  TO  30 

20  IFIAIDI  11)  CALL  LOGSETI JARGI 1 , 1 1 ) , AID) 

IFIAIDI  6))  CALL  LOGSETI JARGI 1 , 1 2 ). AID ) 

IFIAIDI  8)1  CALL  LOGSETI JARGI 1 , 16 1 , AID) 

30  N  =  .FALSE. 

L  *  .TRUE. 

IFIAIDI3).0R.AID(6).0R.AID<12).0R.AID(16).0R.AID117)>  N- . TRUE . 

DO  50  I  =  18.27 

IFIAIDI I  1 1  GO  TO  60 
L  =  .FALSE. 

GO  TO  50 
60  N  *  .TRUE. 

50  CONTINUE 
RETURN 
END 

SUBROUTINE  LOGSETII.LOG) 

THIS  SUBROUTINE .CALLED  IN  BY  CONSYS  AND 
CONPNT .SETS  THE  LOGICAL  VARIABLES  LOGIK) 
TRUE  FOR  THE  It  -  VA  L  U  E  S  .  STDR  E  D  IN  THE  ARGU¬ 
MENT  I. 

LOGICAL  LOG! 1 ) 

INTEGER  III) 

DO  10  L  =  1  .  6 

IF  I  I  I L  1  . EQ . 0 )  GO  TO  20 

K  *  1 1  L  1 

LOGIK 1 = .TRUE . 

10  CONTINUE 
20  RETURN 
END 

SUBROUTINE  MA2CONI THIN. I « ISMO.ALK 1 

THIS  SUBROUTINE  CALCULATES  CONSTANTS  USED 
IN  SUBROUTINE  MATRIX  TO  BUILD  UP  VARIOUS 
MATRICES.  THESE  CONSTANTS  ALL  DEPENDENT 
ON  ALKIJ)  AND  /  OR  RAD1USII).  ARE  STORED 
IN  COMMON/INDATA/. 


00019870 
00019880 
00019890 
00019900 
00019910 
00019920 
00019930 
00019960 
00019950 
00019960 
00019970 
00019980 
00019990 
00020000 
0002001 0 
00020020 
0002D030 
00020060 
00020050 
00020060 
00020070 
00020080 
00020090 
00020100 
00020110 
00020120 
00020130 
00020160 
00020150 
00020160 
00020170 
-00020180 
00020190 
00020200 
00020210 
00020220 
-00020230 
00020260 
00020250 
00020260 
00020270 
00020280 
00020290 
00020300 
00020310 
00020320 
00020330 
00020360 
00020350 
00020360 
00020370 
00020380 
00020390 
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1  C  5  9  *  C 
1  060* 
106  l* 
1062* 

1  06  3* 
1064* 
1065* 
1066* 

1  06  7* 
1068* 

1  06  9  ** 

I  0  70* 
1071* 

1  0  72* 

1  0  73* 
1074* 
1075* 
1376* 

1  07  7* 
1078* 

10  79* 

1  080* 
108  1  * 

1  082* 
l  u  3  3  * 

1  084* 

1  085* 

1  086* 
1087* 

1  088* 
1089* 

1  090* 
1091* 

1  092* 

1  093* 
1094* 
1095* 
1096* 
1097* 
1098* 
1099* 
1100* 
1101* 
1102* 
1103* 
1104* 
1105* 
1106* 
1107* 
1108* 
1109* 
1110* 
1111* 


- 00020  4  00 

REAL  Kl,K2,K4<10)»K5.k6.Kll,K12,NU, 1 1 , LOAD , ACCUR ( 3 ) . A L k ( 9 )  00020410 

COMMON/ASDT /LAYER ,NLAYS,M,R,Z,NU(10),ACCUR, LOAD  »  HOS  TRS , NZEROS ,H(9)00020420 
1 ,K5< 10)#E( 10)  »  AL ( 9  )  »THICK(9) .RADIUS!  10)  0002043G 

COMMON/ I ND AT A/ XM AX ,  A1(9),B1(9),C1(9),D(9),EE(9),F(9)*G(9),H](9), 00020440 

1  11(9), K1(9),K2(9)»K6(10)»BE(9)»BU(9)»BUU(9),BMU(9)»B2U(9),B2UU(  9) .00020 4 50 
2J2C9),J1,T2(10),SS (2,10), GO  l  2( 9  )  , GO  21(9), GO  22(9), G1 22( 9  >  ,  0002C460 

3H 012(9), H022(9),H122(9),D012(9).D022(9),C011(9),C012(9),E012(9),  00020470 

4F0I2(9).FII2(9),FQ22(9),CC(4,2,9)*DD(2»2.9),FF(2.2.9),GG(2r2,10), 

5HH<2, 2*10), «R(4, 2.10), DD2(9),G20(9)#G21(9>,H20(9>.H021(9>,GG2(10> 
6HH2(10)»Q011(9),Q111<9),Q012(9),Q112(9),Q212(9),G022(9),0122(9). 
7QF0(9),QFl(9),ZQll,Zlll#Z212»ZO12»Zli2»Z212,Z312.Z021*Z121.ZQ22, 
8Z122.Z222,K4 


XMAX  =6  .  5*RADIUS( I ) / Th I N 
K  =  0 

DO  30  J  :  1  •  M 

AL<J)  =  ALK(J)/(RADIUS( I)+ALK(J) ) 

*12  -  1  . 0 - A  L ( J  ) 

QO  1  1  ( J  )  *  k 12«B1 ( J ) 

Q  1  1  1  (  J )  =  2 . 0  *  A  L ( J ) *  NU ( J  ♦  1  ) 

00  I  2 ( J  )  S-K12*EE(J) 

QO  2  2 ( J  )  =  K12*Al(J) 

Q1  22  (  J )  -  AL ( J ) *  K  5 ( J  ) 

OF  0( J  )  =  K 1 2*A1 ( J ) *  B 1 ( J  ) 

QF1(J)  *  2 . 0*AL ( J  )*(  1  . 0-NU< J )♦< 1 . 0-NU( J  ♦  1  )  )»K1  ( J  )  ) 
IF(ISMO.EQ.l)  GO  TO  20 
IF C ALKC J  )  .GE . 100 .0)  GO  TO  20 
BE ( J )  *  -AL ( J )/( 1 .0-Alt J  )  ) 

BU ( J )  *  BE ( J ) *2 . 0*NU ( J+ 1  ) 

BUU(J)  =  BU(J)*K5(J> 

BMU(J)  *  BE(J)*K5(J) 

B2U ( J  )  =  BE ( J  )  « ( K5( J  )-2 . 0*NU( J+l ) ) 

B2UU(J)  *  BE(J  )*(K5(J)+2.0*NU(J*1 ) ) 

GO  TO  30 

20  KU  =  2 . 0*(NU(  J  )-NU(  J*1  )  ) 

K  =  K  +  l 
J  2  (  K  )  =  J 

GG( 1 , 1  ,  K  +  1  )  =  K  2 ( J ) 

GO  1 C ( K  )  =  k  1  1  - K  2 ( J  )  * ( 2 . 0-4 . 0*NU ( J  +  1 ) ) 

GO  2  1  ( K  )  =  -k 1 2  *k  2  (  J ) 

GO  2  2 ( K  )  =  ( K  1  1  -  K  2 ( J  )  )*kl2 
G 1  2  2 ( K  )  *-2.0*  NU  <  J ♦ 1  )  *  A  L ( J  ) 

HH (  1  ,  1  »  k  +  1  )  =-3.0  +  4,0*NU(J  )  - K 1 ( J ) 

H  0  1  2 ( K  )  =-2.0+2.0*NU(J)+6.0*NU(J*l)-K4(J)-(2.0-4.0*NU(J>l  )  )* 
1  K  1  (  J  ) 

=  HH ( I « 1 , K  +  1 )«K12 

=  -k 12*< 1 . 0-2 . 0»NU( J  >-6 . 0*NU( J+ 1 >*K4( J ) -k 1 ( J ) > 

*  2  .  0  *  A  L  <  J  )  *NU ( J ♦  1  ) 

,  k  )  =  -  K  6  <  J  ) 


H  0  2  1  (  K  ) 

H022(K) 

H  1  2  2  (  K  ) 

DO ( 1 , 1 
DO  1  2 ( k )  =  -  k  6  (  J ) »  K  5 ( J  ) 

DO ( 2 , 1 , k )  =  -K  1  2*K6 ( J  ) 

0022 ( k  )  *-NU( J )*2 . 0*DD( 2 , 
C  0  1  1  (  K  )  *■-  1  .  0  +  4 . 0  *NU  C  J  ) 


1  ,  K  ) 


00020483 
00020490 
0  0  0  2  0  5  3  r 
C  0  0  2  0  5  ]  C 
00020520 
00030530 
C 002  0  54  0 
00020550 
00020560 
00020570 
00020580 
00020590 
00020600 
0002061 0 
00020620 
00020630 
00020640 
00020650 
00020660 
00020670 
00020680 
00020690 
00020700 
00070710 
00020720 
00020730 
00020740 
00020750 
00020760 
00020  7 70 
00020  780 
00020  790 
00020800 
0002081 0 
00020820 
0C0208  30 
00020840 
00020850 
00020660 
00020870 
00020880 
00020890 
00020900 
000209  J  0 
00020920 


B-31 


!U2« 
111  3* 
1  114« 
1115* 
1116* 
1117* 
1118* 
1119* 
1120* 
1121* 
1122* 
1123* 
1124* 
1125* 
1126* 
1127* 
1128* 
1129* 
1130* 
1131* 

I  1  32* 
1133* 
1134* 
1135* 

I I  36* 
1137* 
1138* 
1139* 
1140* 
1141* 
1142* 
1143* 
1144* 
1145* 
1146* 
1147* 
1148* 
1149* 
1150* 
1151* 
1152* 
1153* 
1154* 
1155* 
1 1  56* 
1 157* 
1158* 
1159* 
1160* 
1161* 
1162* 
1163* 
1164* 


CO  1 2 ( K )  =  4 . 0*NU ( J ) «K5<  J ) 

CC ( 2 , 1 . K  )  =-2.0 
EO 1 2 ( K )  —  —  K 1 1 

F  0  1  2  (  K  )  =  K4( J  )-2 . 0«(NU( J )+NU( J*1 )  ) 

F  1121K)  =  2. 0" E  0 1 2 ( K ) 

F  0  2  2 ( K )  =  1 , 0-4 . 0*NU( J *  1  ) 

FF (2, 1  .K)  *  2.0 
002(10  =■  2 . 0*K  1 2/K 1  (  J  ) 

G20 ( K )  =  K12«(  1 . 0-1 . O/Kl ( J ) I 
G2 1 <  K  )  =  A  L  (  J  )  *0  .  5/tC  1  (  J  > 

H  2  0  (  K  )  =  K  12*  (  1  .  0*1  .  O/Kl  (J  )  > 

30  CONTINUE 
J  1  =  K 
DUMMY  =  0 . 0 
T  2 ( NlAYS  )  =  0.0 
DO  40  K  =  1  ,M 

DUMMY=DUMMY+THICK ( K ) 

T2 ( K  )  *2 . 0*THICK ( K )/RAOIUS( I ) 
H(K)=DUMMY/RADIUS(  I  ) 

K  1  2  =  1  .  0  -  A  L  (  K  ) 

011200  =  -K12*F(K)*H(K)+Q111(K)*K5(K> 
Q212(K>  *  Al(IO»HOO*(2.0*NUOC*l)-K5OO> 
40  CONTINUE 

IF(LAYER.EQ. NLAYS)  GO  TO  50 


THESE  CONSTANTS  ARE  USED  FOR  THE  ASYMPTO 
TIC  EVALUATION  OF  THE  CHARACTERISTIC 
FUNCTIONS  IN  MATRIX. 


J  «  LAYER 

R  X  1  =■  2.0«NU(J*1  )*C1<  J) 

R  K  2  *  2  .  0  *NU ( J  +  1 ) *  A 1 ( J  ) 

R  K  3  e  2 . 0  *NU ( J ♦ 1  )*D( J ) 

20  2  1  =  OOIKJUCKJ) 

RK4  *  2021*H( J ) 

K  1  2  =  l.O-AL(J) 

2011  =  Q01K J)»D(J) 

AL(J)«(RK3-G(J)-K5(J)»B1(J))-RK4 
AL(J)»H(J)*(B1(J)-1I(J)-RK1) 
-K12«CD(J)«EE(J)+AI(J)»G(J)) 

Q122(J)*(RK2-G(J)+RK3+EE(J))+K12*H(J)*(A1(J)* 

1  HI ( J )+Cl I J )«EE ( J >-D( J )«F ( J ) ) 

-ALCJ>*H<J)»(K5<J)«<RK1*B1CJ>+II(J)>-RK3+EE(J>+ 
1  R  K  2  ♦  G  ( J  )  )  -  R  K  4  *  H  ( J ) 

AL<J)*H<J)*H(J)«<B1(J)-RK1-II(J)> 

AL ( J )»( RK 1 -B1 ( J ) M I ( J  )  ) 
K12«(A1(J)«II(J)~EE(J>*C1(J)) 
Al(J)*(RK2*EEU)*K5<J)*(RKl-MIU)>)*RK4 
21 2 1 *H ( J  ) 


2111  * 
2211  = 
2012  = 
2112  = 

1 

2212  = 


2312 
2121 
2022 
2122 
2222 
50  RETURN 
END 

SUBROUTINE  CONPNT(R,HOSTRS.LOAD,2,N2.L2) 


00020930 
00020940 
00020950 
00020960 
00020970 
00020980 
00020990 
00021000 
00021010 
00021020 
00021030 
00021040 
00021050 
00021060 
00021070 
00021080 
00021090 
00021100 
00021110 
00021120 
00021130 
00021140 
000211 50 
00021160 
00021170 
00021180 
00021190 
00021200 
00021210 
00021220 
00021230 
00021240 
00021250 
00021260 
00021270 
00021280 
00021290 
00021300 
00021310 
00021320 
00021330 
00021 340 
00021350 
00021360 
00021370 
00021 380 
00021390 
00021400 
00021410 
00021420 
00021430 
00021440 
00021450 


B-3? 


1165m  C 
1166m  C 
1  167m  C 

I  168m  C 
1169m  C 
1170m  C 
1171m  C 
1 l 72m  C 
1173m  C- 

I I  74* 
1175m 
1176m 
1177m 
1  1  78m 
1  179m 


THIS  SUBROUTINE  DETERMINES  FOR  EACH  POINT¬ 
LOAD  CONF I GURAT I  ON  SEPARATELY  THE 
INTEGRALS  NEEDED  FOR  COMPUTATION  OF  THE 
DESIRED  COMPONENTS  OF  STRESS, ETC. 

FOR  POINTS  AT  THE  RIM  OF  THE  LOAD  SOME 
COMPONENTS  CANNOT  BE  CALCULATED  BECAUSE 
OF  SINGULAR  BEHAVIOUR,  A  MESSAGE  IS 
PRINTED. 


LOGICAL  STRESS , EPS , RlOW ,N2 , L2 
REAL  LOAD 

INTEGER  IARG(6,I2),KARGC6,4),JJ(I2,15) 
COMMQN/STRDT A/ST R ESS ( 27) , E PS ( 1 7 ) . R L OW , ST , C T , L , ACC 


COMMGN/TAPE/NOUT 
DATA  I ARG/ 


0002 1460 
00021470 
00021480 
00021490 
0002 1 500 
00021510 
00021520 
00021530 
00021540 
00021550 
00021 560 
00021570 
00021580 
00021590 
00021600 


1180* 

1 

7,12. 

17, 

0, 

0, 

0  , 

12, 

.14, 

.17 

,  0  . 

0  . 

0  , 

10,11, 

0  , 

0  , 

0  . 

0.00021610 

1181* 

2 

7, 

8, 

9,12. 

14  , 

17, 

7  , 

.  9 , 

.  12 

,  19  , 

17, 

0, 

8  .  9  . 

0  , 

0  , 

0  , 

0,00021620 

1 182* 

3 

7, 

12  , 

19.15, 

17, 

0  , 

6  , 

.  10  , 

.  16 

.  0. 

0  , 

0  . 

10.13.16, 

0  , 

0  , 

0 ,00021 630 

1 1 8  3  * 

4 

7, 

8,12. 

1 4  , 

17  , 

0, 

7, 

>12, 

,  14 

,17, 

0, 

0  . 

8,  9, 

0  , 

0, 

0. 

0/00021 690 

1  184* 

DATA  K  ARG/ 

00021650 

1185* 

1 

1  , 

2  . 

4, 

0, 

0, 

0  , 

2  ■ 

.  4 , 

.  0 

.  0  . 

0  , 

0, 

1  ,  2  , 

0  , 

0, 

0  . 

0.00021660 

1186* 

2 

4  , 

5, 

10, 

1 1 . 

12, 

0/ 

00021670 

'  1  87* 

DATA  JJ/ 

00021680 

1188* 

1 

1  . 

0, 

0, 

0, 

0, 

0, 

0  , 

0, 

0  , 

0, 

0* 

0, 

0002  1  6  9(1 

1189* 

2 

0, 

1  . 

0, 

0. 

0  , 

0, 

0, 

0, 

0, 

0, 

0  , 

0  , 

00021700 

1  1  90* 

3 

1  , 

1  . 

0  . 

0, 

0, 

0, 

0  . 

0, 

0  , 

0, 

0, 

0  . 

00021710 

1191* 

4 

1  , 

0  . 

0, 

0  , 

0, 

0  , 

0  . 

1 , 

0, 

0, 

0  , 

0  . 

00021 720 

1192* 

5 

0, 

1  . 

0, 

0  . 

0, 

0, 

0. 

0, 

1 , 

0, 

0, 

0  . 

D0021730 

1  1  9  3  * 

6 

1  , 

1  . 

0, 

0, 

0, 

0, 

0. 

1 , 

1 , 

0, 

0, 

0. 

00021790 

1199* 

7 

1  , 

0. 

1 , 

-1 , 

-1  , 

0. 

0  . 

0  . 

0  ,  ■ 

-1 , 

1  , 

-1 , 

00021750 

1195* 

8 

0, 

1  . 

0  , 

0, 

0  , 

0  , 

-1 , 

0. 

0  , 

0, 

0, 

0, 

00021 760 

1  1  9  &  * 

9 

1 . 

1  . 

1 . 

-1 , 

-1 , 

0  , 

-1  ■ 

0  . 

0  ,  - 

-1 . 

1 , 

-1 . 

00021 770 

1197* 

T 

1 , 

0  . 

1 , 

1 . 

1 , 

0, 

0. 

0  , 

0, 

1 , 

1 , 

1 . 

00021 780 

1  1  98* 

1 

0  , 

1  , 

0, 

0. 

0, 

0  , 

1 . 

0  , 

0, 

0  . 

0  , 

0  , 

00021790 

1199* 

2 

1 , 

1  , 

1 . 

1 , 

1 , 

0  , 

1 . 

0  , 

0, 

1 , 

1 , 

1 , 

0002 1800 

1200* 

3 

1 , 

0. 

1 , 

1 . 

1 , 

1 , 

0  , 

1 , 

0, 

1 , 

1 1 

1 . 

00021810 

1201* 

4 

0, 

1  . 

0, 

0. 

0  . 

0, 

1 . 

0, 

1 » 

0, 

0  , 

0, 

00021020 

1202* 

5 

1 , 

1  . 

1 , 

1 . 

1 , 

1 , 

1 . 

1 , 

1 , 

1 , 

1 , 

1/ 

00021850 

NERR  *  0 
DO  10  I  =  1,17 

EPS(I)  *  .FALSE. 
10  CONTINUE 
J  =  3 

I  F ( ABS ( ST ) . LT .ACC) 
IF ( ABSICT ) . LT . ACC ) 
IF(HOSTRS.LT.ACC) 
IF(RLOW) 

IF ( Z . LT  .  ACC  ) 

I  a  J  ♦  l  4 
GO  TO  50 
20  1  =  2 

IF  (  RLOW) 

GO  TO  50 


J  =  1 
J  =  2 

GO  TO  20 
GO  TO  30 
GO  TO  40 


0002  1  840 
00021850 
00021860 
00021870 
00021880 
00021890 
00021 900 
0002  1  9  1  0 
00021920 
0002  1  9  30 
0002  1  940 
00021950 
00021960 
00021970 
0002 1 980 


B-33 


1218« 

30 

1  -  J  +  5 

00021990 

1219» 

I F ( Z . L  T . ACC ) 

1  =  1-3 

00022000 

1220** 

GO  TO  50 

000220)0 

1221** 

90 

I*J+1 1 

00022020 

1222** 

IF (ABS(R-1 .0) .LT.ACC) 

1  =  1-3 

00022030 

1221* 

50 

IFISTRESS!  9) .OR. STRESS! 10 ) (CALL  l OGSE T ( K ARG ( 1 . 1 ) , E PS ) 

00022090 

12  29* 

IF (STRESS!  51) 

CALL  LOGSET(KARG( 1 >2) »  EPS  ) 

00022050 

122  5* 

IFISTRESS!  3)) 

E  PS  (  J)  =  .TR'«£ 

00022060 

1226** 

IF (STRESS! 11  )  ) 

E  PS  <  4)=.TRLi_. 

00022070 

1227** 

IF (STRESS! 12  )  ) 

CALL  LOGSET ( KARG( 1 , 3) , EPS) 

00022080 

1228* 

IF (STRESS!  6) . AND. (Z  .GT . ACC  )  )  EPSC  11*. TRUE. 

00022090 

1229** 

I F (  .NOT .STRESS!  8)  ) 

GO  TO  60 

00022100 

1230* 

IF(Z. LT.ACC) 

GO  TO  60 

00022110 

1231* 

IF ( R . GT . ACC ) 

E  PS ( 5  )  * . TRUE . 

00022120 

1232* 

60 

IF< I . IT. 3)  GO  TO  ISO 

000221 30 

1233* 

DO  90  J  *  1.12 

00022190 

1239* 

IF  .NOT .STRESS! J ) ) 

GO  TO  90 

00022150 

1235* 

.  -  ( J  J  < J , 1-2 ) ) 

70 , 90 , 80 

00022160 

1  2  36  * 

70 

NERR  *  1 

00022170 

1237* 

STRESS! J  )  •  .FALSE. 

00022180 

1238* 

L  2  *  .FALSE. 

00022190 

1239* 

GO  TO  90 

00022200 

1290* 

80 

CALL  LOGSET! IARG! 1 . J ) .EPS) 

00022210 

1291* 

90 

CONTINUE 

00022220 

1292* 

IF(NERR)  160.160.100 

00022230 

1293* 

100 

IFII-10)  110.130,120 

00022290 

1299* 

110 

WRITEINOUT .9000) 

00022250 

1295* 

GO  TO  190 

00022260 

1296* 

120 

WRITEINOUT ,9020) 

00022770 

1297* 

STRESS! 1 3 )  *  .FALSE. 

0002.'  .'80 

1298* 

GO  TO  190 

00022290 

1299* 

130 

WRITEINOUT. 9010) 

00022300 

1250* 

STRESS! 13)  *  .FALSE. 

00022310 

1251* 

IF(STRESS! 12 ) )  GO  TO  150 

00022320 

1252* 

190 

IF!STRESS!3).OR.STRESS(6)) 

GO  TO  150 

00022 330 

1253* 

IFISTRESSI 16 ) )  GO  TO  150 

00022  390 

1259* 

IF < STRESS! 1 7) )  GO  TO  150 

00022350 

1255* 

IF(STRESS!20) )  GO  TO  150 

00022360 

1256* 

IF (STRESS! 22  )  )  GO  TO  150 

00022370 

1257* 

IF(STRESS(25) )  GO  TO  150 

00022380 

1258* 

IF(STRESS(27) )  GO  TO  i 50 

00022190 

1  259* 

N2  *  .FALSE. 

00022900 

1260* 

150 

STRESS! 18)  »  .FALSE. 

00022910 

1261* 

STRESS! 19)  *  .FALSE. 

00022920 

1262* 

STRESS! 21)  *  .FALSE. 

00022930 

1  263* 

STRESSI23)  *  .FALSE. 

00022990 

1269* 

STRESS ( 29 )  ■  .FALSE. 

00022950 

1265* 

S  IRE  5S ! 26 )  ■  .FALSE, 

00022960 

1266* 

160 

IF(LOAO.GT.ACC)  GO  TO  180 

00022970 

1267* 

DO  170  J  *  1,5 

00022980 

1268* 

170 

EPS(J)  ■  .FALSE. 

00022990 

1269* 

180 

RETURN 

00022500 

1270* 

9000 

FORMAT!*  AT  THIS  POINT  SR R 

.SIT, ERR  AND  ezz  have  a  logarithmic 

SING00022510 

B-3U 


□ 


12  71* 
1272* 
1273* 
1274* 
1275* 

1  276* 
1277* 

9010 

9020 

HILARITY'  )  00022520 

FORMAT!'  AT  THIS  POINT  SRT  ANO  ERT  HAVE  A  LOGARITHMIC  SINGULAR  I  TV • 0002 2 530 

1)  00022540 

FORMAT!’  AT  THIS  POINT  SRR . STT , SRT, E RR , EZ2  AND  ERT  HAVE  A  LOGAR I TH0002 2 550 

1MIC  SINGULARITY')  00022560 

END  00022570 

SUBROUTINE  GENDAT ! N . NZEROS . R . ACC )  00022580 

1  2  7  9* 

c 

THIS  SUBROUTINE  GIVES  THE 

ZEROS  OF 

THE 

00022600 

1260* 

c 

PRODUCTS  J0(XR)*J1CX>  AND 

J1!XR)*J1(X)  IN 

000Z2610 

1231* 

c 

THE  RIGHT  ORDER.  THE 

SUBSEQUENT  ZEROS  ARE 

00022620 

1  282* 

c 

STORED  IN  ZEROS  FOR 

USING 

THEM  IN 

INGRAL  * 

00022630 

1  283* 

c 

THE  ZEROS  OF  JO  AND 

J1  ARE 

STORED 

AS 

00022640 

1  284* 

c 

BZEROS  IN  THE  BLOCK 

DATA  . 

00022650 

1286* 

COMMON/GEDATA/BZEROS! 149 . 2). ZEROS (296) 

00022670 

1  287* 

IFCR. LT. ACC. OR. ABS(R-1 .0) . IT. ACC)  60  TO  40 

00022680 

1288* 

1  =  1 

00022690 

1  289* 

j  =  i 

00022700 

1  2  90* 

DO  20  K=1,29B 

00022710 

1291* 

IF ( I .GT . 149 )  GO  TO  30 

00022720 

1292* 

IF  <  J  .GT .  149 )  GO  TO  30 

00022730 

1293* 

IFIBZEROS! I . 2 ) . LT . BZEROS! J ,N*1 )/R)  GO  TO 

10 

00022740 

1  294* 

ZEROS!*)  *  B2EROS!  J  ,  N*  1  )/R 

00022750 

1  295* 

J  =  J  ♦  1 

00022760 

1  296* 

GO  TO  20 

00022770 

1297* 

10 

ZEROS(K)=BZEROS(I.2> 

00022780 

1298* 

1*1*1 

00022790 

1299* 

20 

CONTINUE 

00022800 

l  300* 

30 

NZEROS  *  K-l 

0002231 D 

1301* 

RETURN 

00022820 

1  302* 

40 

IF(R.GT.ACC)  GO  TO  70 

00022830 

1  303* 

50 

DO  6  0  1*1  .  1*9 

00022840 

1  304* 

ZEROS! I ) =BZEROS!  1  .  2 ) 

00022850 

1  305* 

*0 

CONTINUE 

00022860 

1  306* 

NZERO“>*  149 

00022870 

1  3  Q  7  » 

RETURN 

00022880 

1  308* 

70 

IF (N. EQ . 1 )  GO  TO  50 

00022890 

1  309* 

DO  80  K* 1 . 149 

00022900 

1310* 

ZEROS! 2"K  -  1 ) *BZEROS! X  $  1 ) 

00022910 

1311* 

ZEROS! 2»K  )>BZEROS(K.2) 

00022920 

1312* 

80 

CONTINUE 

00022930 

1313* 

NZE  ROS  =  298 

00022940 

1314* 

RETURN 

00022950 

1315* 

END 

00022960 

1314* 

SUBROUTINE  AS YMP T ! R , ACC  1 

00022970 

1318* 

c 

THIS  SUBROUTINE  ORGANIZES 

THE  COMPUTATION 

00022990 

1319* 

c 

OF  THE  ASYMPTOTIC  PART  OF 

THE  INTEGRALS 

00023000 

1  320* 

c 

AS  USED  FOR  THE  TOP- 

LAYER 

ONLY  . 

00023010 

1321* 

c 

ASYMPT  CALLS  IN  SUBROUTINE 

ASS 

00023020 

1  322* 

c 

ASYMPT  CALLS  IN  FUNCTIONS 

FILE 

00023030 

1  32  3* 

c 

FILK 

00023040 

s 

i 

I 
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1124*  C  FLMBDA  00023050 

132  5o  C - 00023060 

1326o  DOUBLE  PRECISION  DR . K ACC 2 . C , £ L L £ , E L LK , F L L E , F L L K  00023070 

13270  COMMON/CONST/C , El LE , EllK , ALMBDA  00023080 

13280  IF(R.LT.ACC)  GO  TO  10  00023090 

13290  DR  =  DBLE  < R )  00023100 

13 30o  KACC2*( ( l . 0D0-DR1M 1 . ODO-DR )*C»C>/( < 1 . ODO  +  DR )»< 1 .ODO  +  DR  >*C*C  >  00023110 

13310  ELLK*FlLK(KACC2)  00023120 

1  332o  EllE«FLLE(KACC2)  000231  30 

13330  ALMBDA  >  F LMBDA ( DR , C , E L L K , E L L E . K ACC 2  )  00023190 

1 33Ao  10  CALL  ASS(ACC.R)  00023150 

13350  RETURN  00023160 

13360  END  00023170 

13370  DOUBLE  PRECISION  FUNCTION  FllK(KACC2!  00023180 

13380  C - 00023190 

1339o  C  THIS  FUNCTIONSUBROUTINE  EVALUATES  THE  00023200 

13900  C  COMPLETE  ELLIPTIC  INTEGRAL  OF  THE  FIRST  00023210 

13910  C  KIND  FROM  A  SER I ES- E XPANS I  ON  ACCORDING  TO  00023220 

13920  C  BYRD  AND  F R I E OMAN , HANDBOOK  DF  ELLIPTIC  00023230 

13930  C  INTEGRALS  FOR  ENGINEERS  AND  PHYSICISTS,  00023290 

13990  C  FORMULA  900.00  FOR  KACC2.GE.0.5  00023250 

1395*  C  FORMULA  900.06  FOR  KACC2.LT.0.5  00023260 

1  3960  C - 00023270 

13970  DOUBLE  PRECISION  KACC 2 . KA , M 1 , KACC  00023280 

1398»  KA  -  1.0D0-KACC2  00023290 

1399o  I F ( KA . GT . 0 . 5D0 1  GO  TO  10  00023300 

1 350*  FllK-1. 0DO*KA»(0. 2 5DO»KA«(0.19062500*KA*<0.09765625DO+KA«(0. 07976800023310 

1351*  1066900*KA#<0. 06056213 38D0+KA»<0. 050 889""  ,0D0*KA»(0. 0938 78 7937 00+KA00023320 

1352*  2*(0. 0 3856 5 396500+K A* (0. 0 39 3993369D0*K A*, 0.031 09 59012D0*KA*(0. 028280 0023330 

1353*  372353D0*KA*<0. 0259790 79 3DO*KA»<0.0290!91152DO*KA*(0.0223391012DO«K00023390 

13590  9A*0 . 0208699768D0 1 1 )) 1 1) 1 1 1) ) 1 1  00023350 

1355*  GO  TO  30  00023360 

1356*  10  KACC*DSQRT(KACC2>  00023370 

1357*  IFIKACC.LT. 1.0D-09)  GO  TO  20  00023380 

1358*  M1»-DL0G(KACC)  00023390 

1359*  FLIK=M1»(1.0DO*KACC2«(0.25DO*KACC2*10.190625DO*KACC2*(0.09765625D000023900 

1360*  1*KACC2»( 0 . 0797680669DQ*KACC2*( 0 . 060562 1 338D0+KACC2* 1 0 . 0508890 1 5  D00023910 

1361*  20*KACC2*(0.0938787937  DO»X ACC2 » ( 0 . 0 38 56 539 6 5  DO+K ACC2* < 0 . 0 39 39 9 3 360002 3920 

1  362»  39  D0*KACC2* (  0 . 03109590 12  00  ♦  K  ACC  2  »  (  0 . 02  8  2  8  7  2  3  5  3  DO *K ACC  2* (  0 . 02 59 790002  39  30 

1  363»  90793  D0+KACC2# (  0 . 0290 1 9 1  1  52  DO  * K ACC2 *0 . 02 2 3 39  1  0  1  2  DO ))  1  )))  1  ))  1  ))  1  ) 0002 3990 

1369*  5*1.38629936DO*KACC2*(0.0965735903DO»KACC2*(0.0308851995DO*KACC2»(000023950 

1365»  6. 0199376009DO*K AC C2«( 0.008766 31 22D0*KACC2»(0.0057598877D0«KACC2o( 00002 39 60 

l 366»  7.0090696585DO*KACC2»(0.0030225965DO»KACC2»<0.002S351572DO*KACC2*(00002S970 

1367#  8.0018580703DO+KACC2*! 0 .001 51 351 16D0*KACC2*( 0 . 001256591 1DO*KACC2#(000023980 

1368»  9 . 0010599297D0  +  KACC2M0. 0009060596DO+KACC2*0 . 00078391 I8D0) ) ) ) ) ) 1 ) 1 100023990 

1369«  Til)  00023500 

1370#  FllK  »  2. ODOoFLLK/3. 191592653500  00023510 

1371*  GO  TO  30  00023520 

1372*  20  FLLK  =  0 . ODO  00023530 

1373#  30  RETURN  00023590 

1379#  END  00023550 

1375*  DOUBLE  PRECISION  FUNCTION  FLLE(KACC2)  00023560 

1  376*  C - 0002  3570 
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1377#  C 
1378#  C 
1379#  C 
1380#  C 
1381#  C 
1  382#  C 
1383#  C 
1384#  C 
1  385# 

1  386# 

1  337# 
l  388# 

1  389# 

1  390# 
1391# 

1  392  # 
139  3# 

1  394# 

1  39  5# 

I  396# 

1  397# 

1  398# 

1  399# 

1  **00# 
1401# 
1402# 
1403# 
1404* 
1405* 
1406# 
1407# 
1408# 
1409# 
1410# 
1411# 

1  4  2  2#  C 
1413#  C 
1414*  C 
2415*  C 
1416#  C 
1417#  C 
1418#  C 
1419#  C 
1420#  C 
1421#  C 
1422#  C 
1423# 
1424# 
1425* 
1426# 
1427# 
1428# 
1429# 


A  »■ 


i ’  *  VI W 


•w 


THIS  FUNCTIONSUBROUTINE  EVALUATES  THE 
COMPLETE  ELLEPTIC  INTEGRAL  OF  THE  SECOND 
RIND  F  R  OH  A  SERIES-EXPANSION  ACCORDING  TO 
BVRD  AND  FRIEDHAN, HANDBOOK  OF  ELLIPTIC 
INTEGRALS  FOR  ENGINEERS  AND  PHYSICISTS, 
FORMULA  900.0?  FOR  KACC2.GE.0.5 
FORMULA  900.10  FOR  KACC2.LT.0.5 


0002  3580 
00023590 
00023600 
00023610 
00023620 
00023630 
0002  3650 

- 00023650 

DOUBLE  PRECISION  K AC C 2 , K AC C . K A  00023660 

KA  «  1.0D0-KACC2  00023670 

IF < KA . GT  .  0 . 5D0  )  GO  TO  10  00023680 

F  LLE  =  1  . 000- RAM  0 . 25D0*KA«( 0 . 046875D0<KA«(  0 . 0 1 9 5 3 1 2 5D0 +  K A» l  0 . 01  0  681  000  2  36  9  0 
1  1523D0  +  KA**<0,0067291260D0  +  KA*(0.0046262741D0  +  KA*(0.0033752918D0  +  KA00023?00 
2«(0.0025710231DO+KA»(0.0020234904DO*KA*<0.0016339685DO+KA«0. 00134700023710 
3011200))))))))))  00023720 

GO  TO  30  00023730 

10  RACC  =  0SQR  T ( RACC2  )  00023740 

I F < KACC . L T . 1 . 0D- 04 )  GO  TO  20  0002  3750 

F  L  LE*  1  .  ODO-O . 50D0»KACC2«DLOG<  KACC  >«( 1 . 0D0*KACC2«(  0 . 375D0  +  KACC2»(  0  00023760 
I.234375Qa»KACC2«<0.1708984375DO*KACC2*(0.1 34 53 2 5 1 96 DO ♦ R ACC 2 « ( 0 . 11)00023770 
2030S786D0*KACC2»10. 0945081711  DO *K AC C2«(0.0822727J82D0*K AC C2»(0. 07200023780 
38456536D0  +  KACC2M0 . 0  6  5  3  58  7  3  9  3D0  ♦  K  ACC  2  «  l  0. 0S926849  3  1  D0*K  ACC  2«(  0.0  540002  3790 
421  7201  1D0»KACC2»<  0. 0499 59 7606D0*K ACCOM  0. 046 322 5802D0  +  K ACC 2«0 . 04  31000  2  380  0 
5792623D0)))>))))))))))+0 . 2  5D0«RACC2*(  1.772588?22D0»KACC2M  0.22  72200002  3810 
6 7  ;07D0  +  RACC2«< 0.08732 5481  7D0*RACC2»(  0. 046  1  780856D0*KACC2M  0 .02856800023820 
70012DO*KACC2M0.019418973300*KACC2M0.01405B7518DO*KACC2MO.D1064800023B30 
89434DO*KACC2MO. 00834558  9500*KACC2M0.0067166737DO*K  AC  C2M0. 00552200023840 
92  888D0  +  KACC2M0. 0046204936DO  +  K  ACC2M0.003922930400  +  K  AC  C2M0. 00337200023850 
T2549D0  +  RACC2**0 . 0029299298D0)  )  )  )  )  )  )  )  )  )  )  )  >  )  00023860 

FLLE  -  2.0D0»FLLE/3. 1415926535DO  00023870 

GO  TO  30  00023880 

20  FLLE  =  2. 0D0/3. 141592653500  00023890 

30  RETURN  00023900 

END  00023910 

FUNCTION  FLMBDA(DR.C,ELLR.ELLE,RACC2)  00023920 

- 00023930 

THIS  FUNCTIONSUBROUTINE  EVALUATES  THE  00023940 

HEUMAN'S-LAMBD*  'UNCTION  FROM  A  SERIES-  00023950 

EXPANSION  ACCORDING  TO  00023960 

BVRD  AND  FRIEDMAN, HANDBOOK  OF  ELLIPTIC  00023970 

INTEGRALS  FOR  ENGINEERS  AND  PHYSICISTS.  00023980 

FORMULA  904.00  00023990 

•<  USE  IS  MADE  OF  THE  COMPLETE  ELLIPTIC  I NTE  -  00024000 

GRALS  OF  THE  FIRST  AND  SECOND  RIND  ELLR  00024010 

AND  ELLE  EVALUATED  BY  FLLK  AND  FLLE.  00024020 

- 00024030 

DOUBLE  PRECISION  DR , DAS  IN , SUM, PHI ,DS,DC,A,T,AI,KACC2.TUAI.DAR.ELLK00024040 
1»ELLE,E,K,C  00024050 

DAR  =>  DABS! 1 . ODO-DR )  00024060 

IFCC.LT.OAR)  GO  TO  10  00024070 

OASIN  «  DAR/C  00024080 

PHI  *  1  .5707963268D0-DATANIDASIN)  00024090 

GO  TO  30  00024100 
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1430« 

14  31* 
1432* 
1433« 
1434o 
1435o 
143&o 
14370 
1438o 

143) 0 
1  44  0  o 
14410 
1442o 
1443o 
1444o 
1445o 
1446o 
1447o 
14480 

144) o 
1450» 
14510 
1452o 
14S3o 
14540 
14550 
14560 
14570 
1458o 

145) o  C 
1460o  C 
14610  C 
1462o  C 
1463o  C 
14640  C 
1465o  C 
1466»  C 
14670  c 
14680  C 

146) o  C 
14700  C 
14710  C 
14720  C 
14730  C 
14740  C 
14750  C 
14760  C 
14770  C 
1478»  C 

147) o 
14800 
14810 
14820 


1 


10  OASIN  *  C/DAR 

1F(C. IT . ( 0 . 1D-05«DAR ) )  GO  TO  20 
PHI  •  OATAN(DASIN) 

GO  TO  30 
20  PHI  •  DASIN 

30  IF«0ABS(PHI-1 . 5707)6326800) .GT . 1 . OD-6 >  GO  TO  40 
F  LMBDA* 1 .0 
GO  TO  60 
40  DS*DS IN ( PH  I  ) 

DC  *DCOS ( PH  I  ) 

E  «  ELLE 
K  *  EL  LK 
F IMBDA  =  PH  I oE 
T=0.5D0»(PHI-DS*DC> 

A  =  0 . 5D0OKACC2 
SUM=A*T*( 2 . ODO«K-E ) 

IF(SUM. LT . 1 . 0D-07)  GO  TO  60 
1  =  1 

50  FLMBDA  =  F  LMBDA- SNGL ( SUM ) 

1  =  1*1 
A I  =  I 

TWAI»2.0D0oAI-l .ODO 

T=0.5D0»T*TWAI/AI-0. 5D0»0C«<  DS**TWA1 )/A I 
A = 0. 5DOOAO< THAI-2 . 000>*KACC2/AI 
SUM=A»T*(2.0D0*AI*K-TWAI*£ ) 

IF ( SUM . G  T . 1 . OD- 0  7 )  GO  TO  50 
60  RETURN 
END 

SUBROUTINE  ASS(ACC.R) 


THIS  SUBROUTINE  COMPUTES  THE  LIPSCHITZ- 
HANKEL  INTEGRALS  III.J.K)  FROM  EXPRESSI¬ 
ONS  in  earlier  evaluated  elliptic  functi¬ 
ons  of  the  first  and  second  kind.ellk  AND 

ELLE, AND  HEUMAN ' s- LAMBDA  F UNC T I ON . A L MBDA . 
REFERENCE 

EASON, NOBLE  AND  SNE DD0N , C E R T A I N  INTEGRALS 
OF  LIPSCHITZ-HANKEL  TVPE  INVOLVING  PRO¬ 
DUCTS  OF  BESSEL  FUNCT IONS , PHI LOSOPH ICAL 
TRANSACTIONS, VOL  247, SERIES  A)35. APRIL 
1955. PP  529-546. 

F10MI = I ( 1 ,0 ; -1 ) 

FIDO  =  1  (  1  >  0  >  0 ) 

F101  =1(1. Oil) 

FI  IMZ= I ( 1 . 1 i -2) 

F 1 1M1  =  I ( I . 1  i  -1  ) 

FilO  =1(1, 1 ! 0) 

Fill  = ' (  1  ,  1  1  1  ) 


COMMON/CONST/C, ELLE »  E  l  L  K .ALMBDA 

COMMON/CNT ING/F 10M1 ,F100,F101.F11M2.F11M1.F110,F111 
DOUBLE  PRECISION  DR , C , DE PR . OEMR . DC  2 . DR T 2 . DR T . DAO . DR2 . DRC2 . DRRT , 
1  DEMUR  »  ELLE • El IK 


00024110 
00024120 
00024130 
00024140 
00024150 
00024160 
00024170 
00024180 
00024190 
00024200 
0002421 0 
D0024220 
00024230 
00024240 
00024250 
00024260 
00024270 
00024280 
00024290 
00024300 
00024310 
00024320 
00024330 
00024340 
00024350 
00024360 
00024370 
00024380 
00024390 
-00024400 
00024410 
00024420 
000244  3D 
00024440 
00024450 
00024460 
00024470 
00024480 
00024490 
00024500 
00024510 
00024520 
00024530 
00024540 
00024550 
00024560 
00024570 
00024580 
■00024590 
00024600 
000246 1 0 
00024620 
00024630 
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1483* 

EC  =  SNGL(C) 

00024640 

1484* 

IF(R.LT.ACC)  GO  TO  20 

00024650 

1485* 

EMR  =  1.0-R 

00024660 

I486* 

E  PR  e  1.0  +  R 

00024670 

1487* 

C2  =  EC*£C 

00024680 

1488* 

R 12  *  C2*EPR#EPR 

00024690 

1489* 

RT  =  SQRKRT2) 

00024700 

1490* 

R  2  =  R«R 

00024710 

1491* 

EMR  R  *  1.0-R2 

00024720 

1492* 

DR  *  DBIE(R) 

00024730 

1493* 

DEPR  *  l.ODO+DR 

00024740 

1  494* 

DEMR  =  l.ODO-DR 

00024750 

1495* 

DC  2  =  CMC 

00024760 

1496* 

DRT2  *  DC  2  +  DE  P  R  *DE  PR 

00024770 

1497* 

DR  T  =-  DSQRTCDRT2J 

00024780 

1498* 

DAD  =  DC2+DEMR*DEMR 

00024790 

1499* 

DR  2  =  DR “DR 

00024800 

1  500* 

DRC2  =  DR  2 ♦ DC  2 

00024810 

1501* 

DRRT  =  DRmDRT 

00024820 

1502* 

DEMRR  =  1.0D0-DR2 

00024830 

1  503* 

F101  -  0 . 5D0*( E LLE*< 1 . 0D0-DRC2 )/( DAD«DRT >*EL LK/DRT ) 

00024840 

1  504* 

f  1  1  0  =  DRT*<EUK*(1.0D0  +  DRC2)/DRT2-ELlE)/<2. 

0 DO m DR  ) 

00024850 

1505* 

fill  =  C* ( ELLE*(  1 . 0D0  +  DRC2 l/DAD-ELLK )/l 2 . ODO*DRRT ) 

00024860 

1  5  6  * 

F10M1  *  0 . 5D0»£ILE«DRT 

00024870 

1  50  7* 

F  1  00  =  -0  .  5D0»C*EUK/DRT 

00024880 

1  508* 

F11M2  *  -C»(C*ELLE«DRT/(4.000«DR)-C»ELLK*(  1  . 

DDD+DR2+0.5D0*DC2)/ 

00024890 

1509* 

1  <2.000*DRR7n/3.0DO*OR*<DRr*Elt£/2. 0D0*DEMRR»ELlK/(2.  DDO»DRT)  )/ 

D0024900 

1510* 

23.0D0*(ELLE»DRT/(2.0D0*DR)-DEMRR«ELLK/(2.0D0*DRRT))/3.0D0 

0002491 0 

1511* 

Filin  *  0 . 5D0*<  0 . 5D0»ELLE*C«DRT/DR-ELLK»C»(  1 

. 0D0  +  DR2  +  0 . 500*DC2  1  / 

00024920 

1512* 

1DRRT) 

00024930 

1513* 

HIP  *  R 

00024940 

1514* 

I  F  (  R  .  GT  .  1  .  0  1  HtP=  I  .  0 /"R 

00024950 

1515* 

1FC ABS1EMR ) . IT . ACC)  GO  TO  10 

00024960 

1516* 

F10M1  =  F  1  0M1  +  0 . 5«(  SNGL  (  ElU  > *EMR R/R T ♦ 5 I GN (  EOALMBDA  .  EMR  )  ) 

000249/0 

1517* 

P100  a  F  1  0  0  ♦  0 . 5*SIGN(ALMBDA  » -EMR  ) 

00024980 

1518* 

F11M2  »  FI  lM2-EC»Al.nBDA»SlGN<  1  .0,EMR)«EHRR/<4.0»R) 

00024990 

1519* 

F11M2  *  F11M2-ECm(HLP/2.0+HLP)/3.0 

00025000 

1520* 

F11M1  =  F11MI+S1GN(0.25»EMR)*EMRRmALMBDA/R+0 

.  5MHLP 

00025010 

1521* 

2F(R.GT. 1 . 0)  GO  TO  30 

00025020 

1522* 

F10M1  *  F10M1-EC 

00025030 

1  523* 

F100  =  F  1  0 0 1  .  0 

00025040 

1524* 

GO  TO  30 

00025050 

1525* 

10  F10M1  =  FIOMI-O.SmEC 

00025060 

1526* 

F100  =  F100+0.5 

00025070 

1527* 

F11M2  =  F11M2-0.5mEC 

00025080 

1528* 

F11M1  =  FI  IMUO  .  5mHIP 

00025090 

1  529* 

GO  TO  30 

00025100 

1  530* 

20  AD  *  1  .  0  +  ECmEC 

000251  1  0 

1531* 

RT  =  SQRT(AO) 

0  0  0  2  5 1  2  0 

1  5  32* 

ADR  T  =  ADmRT 

000251 30 

1  533* 

F101  *  1.0/ADRT 

00025140 

1  534* 

F 1 1 0  =  0 . 5/ ADR  T 

00025150 

1535* 

Fill  =  1  . 5mEC/< ADmADRT  ) 

00025160 

1534* 
1537* 
1538* 
1539* 
1540* 
1541* 
1542* 
1543*  C 
1544*  C 
1545*  C 
1544*  C 
1547*  C 
1548*  C 
1549*  C 
1550*  C 
1551*  C 
1552*  C 
1553*  C 
1554*  C 
1555*  C 
1554*  C 
1557*  C 
1558*  C 
1559*  C 
1540*  C 
1541*  C 
1542*  C 
1543*  C 
1544*  C 
1545*  C 
1544*  C 
1547*  C 
1548*  C 
1549*  C 
1570*  C 
1571*  C 
1572*  C 
1573*  C 
1574*  C 
1575*  C 
1574*  C 
1577*  C 
1578* 
1579* 
1580* 
1581* 
1582* 
1583* 
1584* 
1585* 
1584* 
1587* 
1588* 


F10M1  *  RT-EC 
FIDO  =  1.0-EC/RT 
F 1 1M2  *  0 . 5*  <  RT-EC 1 
F11M1  =  0 . 5«< 1 . O-EC/RT) 

30  RETURN 
END 

SUBROUTINE  I NGRAl ( U . I  NT V . I  NT T , 1  NT  ) 


THIS  SUBROUTINE  CONTROLS  THE  SIMULTANEOUS 
COMPUTATION  OF  A  GROUP  OUT  OF  THE  17  INTE 
GRALS . 

11*1, THE  GROUP  WITH  J0(XR)J1(X)  IN  INTEGR 
I  L  =  2  ,  THE  GROUP  WITH  JKXR)Jl(X)  IN  INTEGR 
THE  ELEMENTS  OF  INTV  ARE  THE  NUMBERS  OF 
REQUIRED  INTEGRALS  OF  THE  GROUP, 

INTT  IS  THE  TOTAL  NUMBER  OF  REQUIRED  INTE 
GRALS  IN  THE  GROUP. 

THE  SET  OF  COMPUTED  INTEGRALS  IS  DELIVE¬ 
RED  IN  INT. 

ACTUAL  INTEGRATION  BY  MEANS  OF  A  GAUSS- 
QUADRATURE  IS  PERFORMED  BY  CALLING  QUAD. 
INTEGRATION  PROCEEDS  BY  QUADRATURE  OVER 
INTERVALS  FROM  ONE  BESSEL  ZERO  TO  THE 
NEXT.  FROM  THE  ORIGIN  TO  THE  FIRST  BESSEL 
ZERO  A  LEGENDRE-GAUSS  QUADRATURE  OF  ORDER 
8, OBTAINING  DESIRED  ACCURRACY  BY  SUBSE¬ 
QUENT  SUBDIVISION  OF  THE  INTERVAL. 

FROM  THE  FIRST  BESSELZERO  ON  A  JACOBI- 
GAUSS  QUADRATURE .OBTAINING  DESIRED  ACCU¬ 
RACY  BY  SUBSEQUENT  RAISING  THE  ORDER 
STARTING  WITH  THE  4  TH  ORDER. 

INTEGRATION  STOPS  AS  SOON  AS  TWO  SUBSE¬ 
QUENT  INTERVALS  DO  NOT  CONTRIBUTE 
SIGNIFICANTLY . 

INTEGRATION  ST0P5  PREMATURELY  IF» 

-IN  THE  FIRST  INTERVAL  MORE  THAN  30  SUB¬ 
DIVISIONS  ARE  NEEDED. 

-IN  THE  FOLLOWING  INTERVALS  EVEN  THE  15TH 
OROER  IS  NOT  ACCURATE  ENOUGH. 

-EVEN  THE  I49-THC298  TH1INTERVAL  DOES 
GIVE  A  NON - NEG1GIBL  E  CONTRIBUTION. 


000251 70 
00025180 
00025190 
00025200 
00025210 
00025220 
00025230 
-00025240 
00025250 
-00025240 
000252  70 
.  00025280 
.  00025290 
00025300 
00025310 
-00025320 
00025330 
00025340 
00025350 
00025360 
00025370 
00025380 
00025390 
-00025400 
00025410 
00025420 
00025430 
00025440 
00025450 
00025460 
00025470 
00025480 
00025490 
00025500 
0002551 0 
00025520 
00025530 
00025540 
00025550 
00025560 
00025570 


INTEGER  ALFA, ORDER.INTV(IO), INT V2 110). INTV3(I0),KX(10), BETA 
REAL  MIDPNT. LOWER. LOAD, NU.ACCUR(3).K5,COMP(10),FIRST(10), 
lSECONDI 10 ) , 1NT( 1 7 ) , RES( 1 0 ) 

COMMON/ASDT/l AYE  R ,NLAYS,M.R,Z,NU(10).ACCUR.LOAD.HOSTRS,NZEROS. 
1,K5(10),EC10).AL19), TH1CX(9), RADIUS! 10> 

COMMON /GEOATA/BZERGS! 149.Z1.ZER0S(298> 

CQMMON/CNT ING/F I0M1.F100,F101.F11M2,F11M],F110,F111 
COMMON/TAPE/NOUT 
NTELL  *  0 
N 1  NT  *  7 

IF( IL.EQ. 2)  HINT  *  10 


- 00025580 

00025590 
00025600 
00025610 
H<  9)00025620 
00025630 
00025640 
00025650 
00025660 
00025670 
00025680 
00025690 


B-ItO 


1589* 
1590* 
1591* 
1592* 
1593* 
1  594* 
1595* 
1596* 
1  597* 
1598* 
1599* 
1600* 
1601* 
1  602* 
1603* 
1  604* 
1605* 
1606* 
1607* 
1606* 
1609* 
1610* 
1  6  1  1  * 
1612* 
1613* 
1614* 
1615* 
1616* 
1617* 
1618* 
1619* 
1620* 
1621* 
1622* 
1623* 
1624* 
1625* 
1626* 
1627* 
1628* 
1629* 
1630* 
1631* 
1632* 
1633* 
1634* 
1635* 
1636* 
1637* 
1638* 
16  39* 
1  640* 
1641* 


C 

c 

C 

C 


c 

c 

c 

c 


1000 

DO  1000  I  =  l.NINT 

KK  < I )  *  0 

CONTINUE 

IF(LAYER.NE.l)  GO  TO  2000 

00025700 

00025710 

00025720 

00025730 

CALCULATION  OF  THE  ASYMPTOTIC  PART  OF  THE 

00025750 

INTEGRALS, FOR  POINTS  IN  THE  TOPLAYER 

ONLY 

.  00025760 

DO 

1190  I  =  1 , N I  NT 

00025780 

K  =  I  NT V ( I ) 

00025790 

IF(K.EQ.O)  GO  TO  1190 

00025800 

GO  TO  (1010.1020,1030,1040,1050,1060,1070,1080.1090,1100, 

1110. 

00025810 

1 

1120, 1130, 1140, 11 50, 1160, 1170), K 

00025820 

1010 

I NT ( K  )  =  F  1  00  +  Z»F 10  1 

00025830 

GO  TO  1190 

00025840 

1020 

I  NT ( K )  =  FIDO 

00025850 

GO  TO  1190 

00025860 

1030 

INTER)  *  -2 ,0*( 1 . 0-NU( 1 > )*F10M1-2*F100 

00025870 

GO  TO  1190 

00025880 

1040 

I  NT ( K )  =  ( 1 . 0-2 . 0#NU< 1 ) )#F 1 1M1 -Z*F1 1 0 

00025890 

GO  TO  1180 

00025900 

1050 

INTER)  =  Z*F 1 1 1 

00025910 

GO  TO  1190 

00025920 

1060 

I  NT ( K )  =  F100-Z»F101 

00025930 

GO  TO  1190 

00025940 

1070 

I NT ( K )  *  -2.0*(1.0-NU(1))*F10M1*Z*F100 

00025950 

GO  TO  1190 

00085960 

1080 

1 NT ( K )  =  -2 .0*( 1 . 0~NU( 1 ) )»F110«Z*F1 1 1 

00085970 

GO  TO  1190 

00025980 

1090 

I NT ( K  )  =  -F 1 1 0 

D0085990 

GO  TO  1190 

00086000 

1100 

INTER)  *  F l 1M1-Z*F 110 

00086010 

GO  TO  1180 

00026020 

1110 

INT(K)  =  F11M1 

00086030 

GO  TO  1180 

<L>  Ci  2  (  ^40 

1120 

INTER)  *  -2 .0*( 1 .0-NUE 1 ) )*F11M2*Z»F1 1M1 

00026050 

GO  TO  1180 

00026060 

1130 

I  NT ( K )  =  -F100 

00026070 

GO  TO  1190 

00026080 

1140 

INTER)  =  F10M1 

00026090 

GO  TO  1190 

00026100 

1150 

INT(K)  *  FI  10 

00026110 

GO  TO  1190 

00026 1 20 

1160 

I  NT ( K )  *  -F11M1 

000261 30 

GO  TO  1180 

00086140 

1  1  70 

INTER)  *  F11M2 

000261 50 

1  180 

I F ( R ,GE . ACCUR ( 1 )  )  INTER)  =  1NT(R)/R 

00026160 

1190 

CONT INUE 

000261 70 

IFENLAYS.EQ.il  GO  TO  3140  00026180 

- 00086  1  90 

INTEGRATION  FROM  THE  ORIGIN  TO  THE  FIRST  00026800 
BESSELZEREJ.  00086810 

- 00026  8  80 


B-hl 


1642* 

2000 

INTT2  =  INTI 

000262  30 

16  4  3“ 

1NTT3  «  INTT 

00026240 

1  644* 

DO  2010  J  =  l.NINT 

00026250 

164  5. 

INTV2U)  *  INTV(J) 

00026260 

1646* 

INTV3(J)  =  I N  T  V  (  J  ) 

00026270 

164  7. 

2010 

CONTINUE 

00026280 

1648. 

UPPER  *  ZEROS! 1> 

00026290 

1649* 

ALFA  =  0 

00026300 

1650* 

8E  r A  =  0 

00026310 

1651  » 

IRES  =  0 

00026320 

16  5c’* 

DELTA  =  0. 5* Z E  R OS (  1 3 

00026350 

1  65  3* 

2  0  Z  0 

LONER  =  UPPER-DELTA 

00026340 

1654* 

IF<L0WER-ACCUR<1)>  2030.2030,2040 

00026350 

1  655* 

2030 

ALFA  =  -1 

00026360 

1  656* 

LONER  =  0.0 

00026370 

1  657* 

2040 

IF (  IRE5.EQ. 1 )  GO  TO  2050 

00026380 

1658* 

CALI  QUAD(  n  ,  INTV3.LONC*  •  l PPT  .  )  i  .  C'OMP.NTEIL  3 

00026390 

1  6  59* 

IF  (NTFLL  .HE  .  0  )  GO  TO  3  1.-0 

00026400 

1  660* 

GO  TO  20/0 

00026410 

166  1  * 

2050 

DO  2060  J  *  1  , N 1 N  T 

00026420 

1662* 

COMP ( J )  *  REE(J) 

00026430 

166  J» 

2060 

CONT INUE 

00026440 

1  664. 

IRES  =  0 

00026450 

1665* 

2070 

MIDPNT  =  0  .  5*  l  l.OWER*UPPf  R  1 

00026460 

1666. 

call  auADin  .  iMTvj.  loatu.mroHT.  u,r  irsi.muu  : 

00026470 

1667* 

IF(NTELt .  Nt  0)  GO  TO  3180 

00026480 

1668* 

CALL  QUADCll  INI  v3. MIDPNT  .UPPER  .  16. SECOND, NULL  ) 

00026490 

1669. 

IF (NT ELI ,NE .0 )  GO  TO  5160 

DDD265DD 

1  6  70* 

DO  20  90  J  =  2  , N I N  T 

00026510 

1671  . 

1F(INTVJ(J).F0.03  GO  TO  7090 

00026520 

1  6  72  . 

IF  (  ABSCCONPl  J  1  >  .  1  !  .  ACO-Rt  2  >1  (.()  TO  2080 

00026530 

167  J. 

IF  (  ABS(  (  C  0  M  P  (  J  )  -  f  1  R  S  T  (  J  '■  -  SECOND  (  J  )  ) /COMP  (  J  )  )  .  L  T 

. ACCURl 31  1 

00026540 

1  6  74« 

1 

l  GO  TO  2030 

00026550 

1.75* 

GO  TO  2090 

00026560 

1  6  7 1  • 

2080 

INTT  3  =  INT  T  3- 1 

00026570 

1677* 

I M LOWE R . GT . ACCUR ( 1 ) )  SO  TO  2090 

00026580. 

1678« 

INTT2  =  INTT2-1 

00026590 

1  679* 

I  N  T  V  3  (  J  )  =  0 

00026600 

1680* 

2090 

CONT INUE 

0002661 0 

1681* 

IF (  INT  T  J . EQ . 0 )  GO  TO  .110 

00026620 

1682* 

ALFA  =  0 

00026630 

1683* 

LOWER  =  MIDPNT 

00026640 

1684* 

DELTA  =  0  .  5  *  D  E  L  T  A 

00026650 

1685* 

BETA  =  BETA+1 

00026660 

1666* 

1  687* 

I  F ( BE TA . GT . 30 )  GO  TO  2  150 

00026670 

C 

ARRIVAL  HERE  MEANS  THAT  THE  INTEGRAND 

IS  TOO 

00026690 

1  688* 

1689. 

C 

IRREGULAR  TO  GET  INTEGRATED  OVER  THE 

REGION  FROM 

00026700 

1690* 

C 

THE  ORIGIN  TO  THE  FIRST  BESSEL  ZERO. 

00026  71 0 

1691* 

c - 

---00026720 

1692* 

IRES  =  1 

00026  7 JG 

1693* 

DO  2100  J  «  I .MINT 

00026740 

1694. 

COMP(J)  =  SEC  OND ( J ) 

00026750 

169  5* 
1696* 
1697* 
1698* 
1699* 
1700* 
1701* 
1702* 
1703* 
1706* 
1  705* 
1706* 
1707* 
1708* 
1  709* 
1710* 
1711* 
1712* 
1713* 
1716* 
1715* 
1716* 
1717* 
1718* 
1719* 
1  720* 
1721* 
1  722* 
1  723* 
1726* 
1725* 
1  726* 
1  727* 
1728* 
1729* 
1730* 
1731* 
1732* 
1  733* 
1736* 
1735* 
1734* 
1737* 
1  738* 
1739* 
1760* 
1761* 
1762* 
1763* 
1766* 
1765* 
1766* 
1  767* 


RESIJ)  *  FIRST(J) 

00026760 

2100 

CONTINUE 

00026770 

I NT T  3  =  INTT2 

00026780 

GO  TO  2070 

00026790 

2110 

DO  2120  J  =  l.NINT 

00026800 

K  =  INTV2! J ) 

00026810 

IF(K.EQ.O)  GO  TO  2120 

00026820 

INT(K)  =  INT(K)+FIRST!J)+SECOND( J) 

00026830 

IF C INTV3! J ) .NE . 0)  GO  TO  2120 

00026860 

INTV2IJ)  =  0 

00026850 

2120 

CONTINUE 

00026860 

UPPER  =  LOWER 

00026870 

INTT  3  =  I  NTT  2 

00026880 

IF(ALFA)  3000,2140,2130 

00026890 

2130 

DELTA  =  DE  L  T  A*  2 . 0 

00026900 

BETA  =  BETA-1 

00026910 

2160 

ALFA  =  ALFA+1 

00026920 

GO  TO  2020 

00026930 

2150 

WRITEINOUT, 9040) 

00026940 

GO  TO  3180 

00026950 
- 00026960 

INTEGRATION  OV.IR  THE  REMAINING  INTERVALS. 


INTV2U) 

0.0 


6,15 

INTV3,  ZEROS  ( IBESS)  ,  ZEROS  (IBESSM  ),  OR  DE  R  .  SECOND 


3000  IFIN  =  NZEROS-1 

DO  3010  J  =  1 , N I NT 

INTV2CJ)  *  I  NT V ( J ) 

3010  CONTINUE 

I  NT T 2  =  INTT 
DO  3130  IBESS  *  1.1EIN 
DO  3020  J  *  l.NINT 
INTV3(J>  * 

FIRST(J)  = 

3020  CONTINUE 

I  NTT  3  =  I NT  T  2 
DO  3070  ORDER  » 

CALL  QUADIIL 
1  NTELl) 

IF(NTELL.NE.O)  GO  TO  3180 
DO  3060  J  *  l.NINT 
K  =  INTV31J) 

IF(K.EQ.O)  GO  TO  3060 
IF(ABS(INT(K)).LT.0.01)  GO  TO  3030 

I  F  (  ABS  (  (FIRST!  J  ) -SECOND  (J)  l/INTIK)  >.i.T.0.1*ACCUR<3>) 

1  GO  TO  3060 

GO  TO  3050 

3030  IFlABStFIRSTC J l-SECOND! J ) ) .GE . 0. 1*ACCUR< 2) )  GO  TO  3050 

3060  INTV3! J )  •  0 

INTT 3  *  INTT3-1 
GO  TO  3060 

3050  FIRST(J)  =  SECOND! J ) 

3060  CONTINUE 

IF! INTT3.EQ.0)  GO  TO  3080 
3070  CONTINUE 


00026970 
-00026980 
00026990 
00027000 
00027010 
00027020 
00027030 
00027060 
00027050 
00027060 
00027070 
00027080 
00027090 
00027100 
00027110 
00027120 
00027130 
00027160 
00027150 
00027160 
000271 70 
00027180 
00027190 
00027200 
00027210 
00027220 
00027230 
00027260 
00027250 
00027260 
00027270 
00027280 


B— 1+  3 


1  748* 
1  749* 
1750* 
1751* 
1752* 
1753* 
1  754* 
1  755* 
1  756* 
1  757* 
1  758* 
1  759* 
1  760* 
1761* 
1  762* 
1763* 
1  764* 
1765* 
1  766* 
1767* 
1768* 
1  769* 
1  770* 
1771* 
1772* 
1773* 
1774* 
1775* 
1776* 
1777* 
1778* 
1779* 
1780* 
1781* 
1782* 
1783* 
1  784* 
1785* 
1786* 
1787* 
1788* 
1789* 
1790* 
1791* 
1792* 
1793* 
l  794* 
1795* 
1796* 
1797* 
1798* 
1799* 
1800* 


WRITE(NOUT .9020) 

WRITEtNOUT ,9050 )  ZEROS(IBESS) 

C - - 

C  ARRIVAL  HERE  MEANS  THAT  THE  DESIRED  ACCURACY  CANNOT 

C  BE  MET  BY  MEANS  OF  THE  AVAILABLE  GAUSS-JACOBI 

C  POL YNUM INALS. 

C - 

GO  TO  3180 

3080  DO  3120  J  =  1.NINT 
K  *  I  NT  V2 ( J  > 

I F ( K . E Q . 0  )  GO  TO  3120 
INT(K)  =  INT ( K ) ♦SECONDt J  ) 

IF(ABS( INT(K)  )  . LT  .0. 01  )  GO  TO  3090 

IFt ABStSECONDt J )/INTCK  )  )  . LT.O . l*ACCURt 3)  )  GO  TO  3110 
GO  TO  3100 

3090  IF(ABS(SECOND(J  )  )  .LT  .0.  l*ACCURt2)  )  GO  TO  3110 

3100  K K ( J  )  =  0 

GO  TO  3120 

3110  K  K ( J  )  «  K  K ( J  )  +  1 

IF(KKCJ) .LT. 2  )  GO  TO  3120 
I  NT V2 ( J  )  *  0 
I  NT  T2  *  INTT2-1 
3120  CONTINUE 

IF( INTT2.EQ.0)  GO  TO  3140 
3130  CONTINUE 

WRITEtNOUT. 9030) 

WRITEtNOUT , 9050 )  ZEROStIFIN) 


C - 

C  ARRIVAL  HERE  MEANS  THAT  ALL  AVAILABLE  BESSEL  ZEROS 

C  HAVE  BEEN  EXHAUSTED  BECAUSE  OF  ILL  CONVERGENCE  OF 

C  THE  INTEGRALS. 

C -  - - 

GO  TO  3180 

3140  DO  31 70  J  *  1 #  N J  NT 
K  =  INTV(J) 

IFt  K . EQ. 0 )  GO  TO  3170 
I F ( K -  5 )  3150,3150.3160 
3150  I NT ( K )  =  I  NT ( K ) *  LOAD 

GO  TO  3170 

3160  INT(K)  =  INT ( K ) *HOSTRS 
3170  CONTINUE 
RETURN 

3180  WRITE (NOUT, 9010  )  < I  NT V 3 ( J ) , J  =  1 , N I N T  ) 

GO  TO  3140 

9010  FORMATt*  DURING  CALCULATION  OF  I N T E G R A L S *  , 1 0  I  3 ) 

9020  FORMATt *  SUSPEND  PROGRAM  GAUSS  POLYS  EXHAUSTED*) 

9030  FORMATt*  SUSPEND  PROGRAM  BESSEL  ZEROS  EXHAUSTED*) 

9040  FORMATt*  SUSPEND  PROGRAM  STEPSIZE  FIRST  INTERVAL  TOO  SMALL*) 
9050  FORMATt*  AT  THE  VALUE  **,E11.4,'  FOR  THE  INTEGRATION  VARIABLE*) 
ENO 

SUBROUTINE  QUAD  t I L , I N T V , A L 0 , U P . NG AUSS , F SC , NT E L L  ) 

C - 

C  THIS  SUBROUTINE  CALCULATES  FOR  THE  SET 


00027290 
00027300 
00027310 
00027320 
00027330 
00027340 
00027350 
00027360 
00027370 
00027380 
00027390 
00027400 
00027410 
00027420 
00027430 
00027440 
00027450 
00027460 
00027470 
00027480 
00027490 
00027500 
00027510 
00027520 
00027530 
00027540 
00027550 
00027560 
00027570 
00027580 
00027590 
00027600 
0002  76  1  0 
00027620 
000276  30 
00027640 
00027650 
00027660 
000276^0 
00027680 
00027690 
00027700 
00027710 
00027720 
00027730 
00027740 
00027750 
00027760 
00027770 
00027780 
00027790 
00027800 
00027810 


B-UU 


1801#  C 
1802#  C 
1803#  C 
1804#  C 
1805#  C 
1806#  C 
1807#  C 
1808-  C 
1  809#  C 
1810#  C 
1811#  C 
1812#  C 
1813#  C 
1814#  C 
1815#  C 
1816#  C 
1817#  C 
1818#  C 
1819#  C 
1820# 
1821# 
1822# 

1  82  3# 
1824# 
1825# 
1826* 
1827* 
1828* 
1829* 
1830* 
1831* 
1832# 
1833* 
1834# 
1835* 
1836# 
1837# 
1838# 
1839# 
1840# 
1841# 
1842# 
1843# 
1844# 
1845# 
1846# 
1647# 
1848# 
1849* 
1850# 
1851# 

1  8  52  * 
1853* 


INTV  THE  INTEGRALS  OF  THE  CORRESPONDING 
FUNCTIONS  I  GRAND  BETWEEN  THE  LIMITS  ALO 
AND  UP  BY  USING  A  GAUSS  QUADRATURE  OF 
ORDER  NGAUSS. 

-FOR  NGAUSS  = 1 6  A  L E GE NDR E -GAUSS  QUADRATU¬ 
RE  OF  ORDER  8. 

-FOR  NGAUSS.LT. 16  A  J ACOB I -GAUSSQU ADR ATU - 
RE  . 

THE  ABSCISSAE  AND  WEIGHTS  OF  BOTH  ARE 
STORED  AS  AGAUSS  AND  HGAUSS  IN  THE  BLOCK 
DATA  . 

THE  SET  OF  INTEGRANDS  IS  COMPUTED  DURING 
SUBSEQUENT  CALLING  IN  OF« 

SUBROUTINES  MATRIX 
FPIGRA 

AND  FUNCTION  I  GRAND 
THE  SET  OF  RESULTING  INTEGRALS  IS 
DELIVERED  IN  FSC 


INTEGER  I  NT V ( 10) 

REAL  IGRAND. FSC( 10 ) 

COMMON/GAUSS/AGAUSS< 16,16) , HGAUSS ( 16,16) 

NINT  =  7 

IF ( IL . EQ. 2  )  NINT  =  10 
DO  10  J  s  1.N1NT 
K  *  INTV(J) 

IF(K.EQ.O)  GO  TO  10 
F  SC  <  J  )  =  0 . 0 
10  CONTINUE 
LABEL  =  0 

IFCIL.EQ.2)  GO  TO  20 

IF ( (  INTV(  1)  ♦  INTV( 2 )  +  INTV( 3) ) . GT . 0 )  LABEL  *  L  ABE l ♦ 1 
IF ( < INTV( 4 ) ♦ INTVC 5 ) ) . GT . 0 )  LABEL  =  LABEL+2 
IF( ( INTV(6)+1NTV( 7) ) . GT . 0 )  LABEL  =  LABEL+4 
GO  TO  30 

20  I F ( < INTVC  1  l  +  INTVC 2 ) ) . GT . 0 )  LABEL  #  LABEL+1 

I F ( ( INTV( 3J+INTVC4 )♦ INTVC 5) ♦ INTVC 6 ) +INTVC 7 ) ) . GT . 0 )  LABEL  =  LABEL 
IF((INTV(8)*INTVC9)*INTV(10)).GT.0>  LABEL  =  LABE  L  +4 
30  FI  =  0.5# (UP- ALO) 

F 2  *  0.5#(UP  +  ALO) 

IGAUSS  =  NGAUSS 
I  F ( NGAUSS . EQ . 16 )  IGAUSS=8 
DO  50  I  =  1, IGAUSS 

X  =  F  1  #AGAUSS( I , NGAUSS ) +F2 
CALL  MATRIX  ( X  ,  L A B E L , N T E L L ) 

IF(NTELL.EQ.l)  RETURN 
CALL  FPIGRA  <IL,X) 

DO  40  J  =  I »  N I  NT 
K  =  INTV(J) 

I  F ( K  .  EQ . 0 )  GO  TO  40 

FSC(J)  =  FSC(J  )  ♦  H  G  A  U  S  S  ( I »NGAUSS)*IGRAND(X»K) 

CONTINUE 


40 

50  CONTINUE 


00027820 
00027830 
00027840 
00027850 
00027860 
00027870 
00027880 
00027890 
00027900 
00027910 
00027920 
00027930 
00027940 
0002  7950 
00027960 
00027970 
00027980 
0002  7990 
-00028000 
00026010 
00028020 
00028030 
00028040 
00028050 
00028060 
00028070 
00028080 
00028090 
00028100 
000281  1  0 
00028120 
00028130 
00028140 
00028150 
00028160 
00028170 
200028180 
00028190 
00028200 
00028210 
00028220 
000282  30 
00028240 
00028250 
00028260 
00028270 
00028280 
00028290 
00028300 
00028310 
00028320 
00028330 
00028340 


1854*  DO  60  J  =  l.NINT  00028550 
1855*  K  =■  INTV(J)  00028560 
1856*  IF(K.EQ.O)  GO  TO  60  00028320 
1857*  FSC(J)  =  FSC(J)«F1  00028380 
1858*  60  CONTINUE  00028390 
1859*  70  RETURN  00028400 
1860*  END  00028410 
1861*  SUBROUTINE  MATRIX  < X , L AB L , N T E L L >  00028420 

1862*  C - 00028430 

1863*  C  THIS  SUBROUTINE  COMPUTES  THE  SET  OF  CHA-  00028440 
1864*  C  RACTERISTIC-FUNCTIQNS  T 0 , VO , SO > UO , T 1 , V  1  ,  00028450 
1865*  C  Sl.UI.TQl  AND  SOI  FDR  THE  VALUE  X  OF  THE  00028460 
1866*  C  INTEGRATION-PARAMETER.  USE  IS  MADE  OF  00028470 
1867*  C  CONSTANTS  CALCULATED  IN  MAC0N1  AND  MA2C0N . 00028480 
1868*  C  THEY  WERE  STORED  IN  COMMON/ 1 NDAT A/ .  00028490 
1869*  C  CHARACTERISTIC-FUNCTION  VALUES  ARE  DEL  I VE-00028500 
1870*  C  RED  IN  COMMON/IGRAN/.  00028510 
1871*  C  LABL  DETERMINES  WHICH  CHARACTERISTIC-  00028520 
1872*  C  FUNCTIONS  ARE  NEEDED#  00028530 
1873*  C  -LABL=1#TO,VO,SO,UO  00028540 
1874*  C  -LABL-2#T1 ,V1 ,S1 ,  U  1  00028550 
1875*  C  -LABL = 3#T0 , VO , SO , UO , T1 , VI , SI ,U1  00028560 
1876*  C  -LABL=4#TQ1 ,  SQ  1  00028570 
1877*  C  -LABL=S#T0 . VO.SO.UO, TQ1 .SQI  00028580 
1878*  C  -LABL=6#T1 , VI .SI ,U1 , TQ1 ,SQ1  00028590 
1879*  C  -LABL=7#T0, VO , SO ,U0, T1 , VI ,S1 ,U1 ,TQ1 .SQI  00028600 
1880*  C  SUBROUTINE  IS  INTERRUPTED  AND  RETURNED  00028610 
1881*  C  WITH  N  TE  L  L  =  1  WHEN  SOLUTION  BECOMES  TOO  00028620 
1882*  C  INACCURATE  BECAUSE  OF  ILL  MATR 1 X-COND 1 -  00028630 
1883*  C  ON  DURING  INVERSION.  00028640 

1884*  C - 00028650 

1885*  REAL  LOAD,NU.W(4.4,9),P(4,2>,PP<2,2).K1,K2.K5.K6,II,NJ(2,2,9),KK6,00028660 
188  6*  1ACCURI 3  > , NP( 2, 1 0 ) ,  NJ2( 9 ) , P3(2 ) ,NP2( 1 0 ) , X4<  10 )  00028670 
1887*  COMMON/ASOT/ LAYER .NLAYS.M. R ,Z.NU( 10), ACCUR. LOAD, HOSTRS.NZ EROS, H(9>00028680 
1888*  1 , X5( 10 > . E ( 10 > , AL( 9 ) . THICK! 9 ) . RADIUS! 10)  00028690 
1889*  COMMON/ I NDATA/XMAX .  Al!9),Bl!9>,Clt9>,DI9>,EE!9)(F!9>.G!9>.Hl!9>, 00028700 
1890*  111(9), K1(9),K2<9).K6!10),BE<9),BU!9),BUU(9), BMU (9), B2U(9),B2UU (91,00028710 
1891*  2J2(9),J1.T2(10),SS(2,10),G012(9>,G021(9>,G022(9),G122(9),  00028720 
1892*  3H012! 9)  .H032I9) ,H122(9)  , DO  1 2 ( 9  > ,0022(9) ,C011( 9) ,C012(9> , E  0 1 2 ( 9  ) ,  00028730 
1893*  4F012(9),F112(9),F022(9),CC(4,2,9),DD(2,2,9),FF(2,2,9),GG(2.2,10),  00028740 
1894*  5HH(2.2.10),RR(4,2,10).DD2(9),G20(9),G21(9)»H20(9),H021(9),GG2(10),00028750 
1895*  6HH2!  10)  .  (3011(9).  0111(9).  0012(9),  Q  1 1  2  l  9  )  ,  0212(9),  (3022(9),  Q122(9),  00028760 
1896*  7QF0(9),QF1(9)»Z011,Z111,Z211,Z012»Z112,Z212,Z312,Z021,Z121»Z022,  00028770 
1897*  8Z122 .Z222.K4  00028780 
1898*  COMMON/ IGRAN/TO ,V0,S0,U0,ri,Vl.St,Ul.TQl,SQl,FPIGR,EXl,EX2  00028790 
1899*  COMMON/TAPE/NOUT  00028800 
1900*  LABEL  •  LABL  00028810 
1901*  IF ( LABEL . LT . 4 )  GO  TO  1000  00028820 
1902*  IF(X.LT.XMAX)  GO  TO  100  00028830 

1  903*  C - 00028840 

1904*  C  ASYMPTOTIC  EVALUATION  OF  TQ1  AND  SQI  00028850 
1905*  C  FOR  X.GE.XMAX.  00028860 
1906*  C - 00028870 


B-46 


1  9  0  7  * 
1908* 
1909* 
1910* 
1911* 
1912* 
1913* 
19  14* 
1915* 
19  16* 
19  17* 

20 

30 

TQ1  *  1.0  00028880 

IF ( LAYER . EQ. 1 )  GO  TO  30  00028890 

J  =  LAYER-1  00028900 

DO  20  K  s  1,J  00028910 

TQ1=TQ1*2.0*(1.0-AL(K))/((1.0-AL(K))*(1.0+K1(K))*0.5*AL(K)*X)  00028920 

CONTINUE  00028930 

SQ1=TQ1»<0. 5»AL  <  LAYER )«X-( 1 . 0-AL ( LAYER  > )*K2( LAYER) >/(< 1 . 0-AL( L AYE R0002894 0 

1  ))  *( 1  .  0  +  K1 C LAYER  )  )  +  0 . 5*AL ( LAYER  )*X )  00028950 

LABEL  =  LABEL-4  00028960 

GO  TO  1000  00028970 

19  18* 

r 

CALCULATION  OF 

TQ1 

AND  SQ1  FOR  X.Lf . XMAX 

00028990 

1919* 

1  920* 

100 

IF  <  J  1  .  EQ . 0  >  GO  TO  120 

0002901 0 

1921* 

DO 

in  j  *  i , ji 

00029020 

1  922* 

GG2(JM)  =  G20  (  J  )  -G2  1  <  J  )  *X 

00029030 

1  92  3* 

HH 2 <  J  +  1  )  =  H20( J  ) +G?  1  ( J  )*X 

00029040 

1  924* 

110 

CONTINUE 

00029050 

1  925* 

120 

DO 

150  K  =  1  ,  M 

0002906C 

1926* 

IF ( J 1 . EQ . 0 )  GO  TO  140 

00029070 

1  927* 

DO  130  I  =  1 , Jl 

00029080 

1928* 

1F< J2C I) . EQ.K )  GO  TO 

1  50 

00029090 

1  9  2  9  * 

1  30 

CONTINUE 

00029100 

1  9  30* 

140 

W1  =  0 . 5«(  1  . 0  +  K1  < K  )  ) 

00029110 

1  9  51  * 

W2  =-0.5«K2(K) 

00029120 

1  932* 

W  3  *  BE(K)*Q.25*X 

000291 30 

1  933* 

NJ< 1 , 1 . K  1  =  W 1 +W3 

00029140 

1934* 

NJ  < 1 , 2 , K  )  *  W2-W3 

00029150 

1935* 

N  J  (  2  .  1  .  K  )  =  W  2  ♦  W  3 

00029160 

1  936* 

NJ ( 2  »  2 , K  )  =  W1-W3 

00029170 

1  9  3  7* 

150 

CONTINUE 

00029180 

1938* 

J  5 

=  j  i  *  i 

00029190 

1939* 

DO 

300  MM  =  1  ,  J5 

00029200 

1  940* 

N  *  J  5 ♦ 1 -MM 

000292 1 0 

1941* 

IF(N-l)  160,160,170 

00029220 

1942* 

160 

J  3  =  1 

00029230 

1  943* 

GO  TO  180 

00029240 

1  944* 

1  70 

J  3  *  J  2 ( N- 1  )  +  1 

00029250 

1945* 

180 

IF ( J  5-N )  190,  190,200 

00029260 

1946* 

190 

J  4  *  M 

00029270 

1  947* 

GO  TO  210 

00029280 

1948* 

200 

J  4  *  J  2  (  N  )  -  1 

00029290 

1  949* 

210 

IF ( J3 .GT  .  J4)  GO  TO  240 

00029300 

1950* 

DO  230  IJ  =  J  3 » J4 

00029310 

1951  * 

IK  =  J44J3-IJ 

00029320 

1952* 

IL  =  I  K  ♦  1 

00029330 

1953* 

E  XPO  =  - X  *  T  2 ( I L ) 

00029340 

1  954* 

IF ( EXPO . LT . -70 . 0 )GO  TO  212 

00029350 

1  955* 

EXP1  =EXP( EXPO)*GS( 1 ,  IL  > 

00029360 

1956* 

GO 

TO  214 

00029370 

1  957* 

2  1  2 

EXP1 =0 . 0 

00029380 

1  958* 

214 

DO 

220  1*1.2 

00029390 

1  959* 

220 

SS(I,IK)  *  NJ(  I  ,  1  ,  IK  )*EXP1*NJ(  I  .2 

,  I  K  )  * SS ( 2 ,  I L ) 

o  o  o :  9 n  o 

1960*  230  CONTINUE 

1961*  290  NN  *  N-l 

19  6  2*  EXPO=-X*T  2  I  J  3  ) 

1963*  IF(EXPO.LT.-70.0)GO  TO  292 

1969*  EXP2=EXP( EXPO ) 

1965*  GO  TO  299 

1966*  292  E  XP2  =  0 . 0 

1967*  299  PROD=GG2(N)*SS< 1 ,J3)*EXP2 

1968*  P2  =  PROD+HH2(N)*SS(2,J3) 

1969*  C - 

1970*  C  TEST  MATRIX-CONDITION  BEFORE  INVERSION. 

1971*  C - 

1972*  IF! ABSI P2 1 . LT . 1 .0E-7»ABS( PRODl/ACCURI 3 >  )  GO  TO  2000 

1973*  PP2  *  1.0/P2 

1979*  IF(N.EQ.l)  GO  TO  310 

1975*  N J  2 ( NN )  *  PP2»D02(NN) 

1976*  DO  270  I  *  1.2 

1977*  270  P3(I>  *  SS( 1 . J3)«NJ2(NN> 

1978*  PP2=P3(1)*EXP2-P3(2) 

1979*  SSU.J3-1)  *  PP2  ♦  1  .  0 

1980*  SS ( 2 . J  3 - 1 )  =  1.0 

1981*  300  CONTINUE 

1982*  310  IF(NTELL.EQ.2)  RETURN 

1983*  NP2 ( 1 )  *  -PP2 

1989*  IF(Jl.EQ.O)  GO  TO  390 

1985*  DO  350  I  =  1.J1 

1986*  J  =  J 1 ♦ 1 - I 

1987*  IFILAYER.GT. J2IJ1  I  GO  TO  360 

1988*  350  CONTINUE 

1989*  J  5  °  1 

1990*  GO  TO  390 

1991*  360  DO  380  I  =  1  ,  J 

1992*  NP2II+11  =  NJ2( I J«NP2t I J 

1993*  380  CONTINUE 

1999*  J  5  *  J«1 

1995*  390  J  =  LAYER 

1996*  SOI  *  SSI l.J)*NP2(J5) 

1997*  TO  1  •  SSI2. J)*NP2(J5) 

1998*  LABEL  *  LABEL-9 

1999*  C - - - - - - - - 

2000*  C  ASYMPTOTIC  EVALUATION  OF  T 0 . VO . SO , U 0 . T 1 . 

200 1*  C  VI, SI  AND  U1  FOR  X.GE.XMAX. 

2002*  C - - - - - 

2003*  1000  IFCLABEL .EO.O)  RETURN 

2009*  IF ( X . L T . XMAX I  GO  TO  1100 

2005*  L  »  LAYER 

2006*  X  2  •  X*X 

2007*  X  3  *  X2»X 

2008*  IFIl .EQ.NLAYS)  GO  TO  1010 

2009*  211  =  Z011«X*Zlll*X2«Z211 

2010*  Z 1 2  *  Z012*X»Z1 12»X2»Z212*X3»Z312 

2011*  Z21  *  Z021«X*Z1Z1 

2012*  Z22  *  Z022*X*Z122+X2*Z222 


000299,0 

00029920 

00029930 

00029990 

00029950 

00029960 

00029970 

00029980 

00029990 

00029500 

00029510 

00029520 

00029530 

00029590 

00029550 

00029560 

00029570 

00029580 

00029590 

00029600 

00029610 

00029620 

00029630 

00029690 

00029650 

00029660 

00029670 

00029680 

00029690 

00029700 

00029710 

00029720 

00029730 

00029790 

00029750 

00029760 

00029770 

00029780 

00029790 

00029800 

00029810 

00029820 

U0029830 

00029890 

00029850 

00029860 

00029870 

00029880 

00029890 

00029900 

00029910 

00029920 

00029930 


2013* 

1010 

IF( LABEL .GT . 1 )  GO  TO  1030 

00029940 

2014* 

1  020 

IFILABEL.EQ.O)  RETURN 

00029950 

2015* 

NP( 1 . 1 )  =  2 . 0  *NU ( 1  ) 

00029960 

2016* 

NP (2,1)  =  1.0 

00029970 

2  0  17# 

GO  TO  1040 

00029980 

2018* 

1030 

NP ( 1,1)  =  1 . 0-2 . 0#NU ( 1 ) 

00029990 

2019# 

NP ( 2  ,  1  )  *  -1.0 

00030000 

2020* 

1  040 

POP  =  1.0 

0003001 0 

202  1  * 

IFU.EQ.  1  )  GO  TO  1060 

00030020 

2022* 

DO  1050  K  «  2,1 

00030030 

202  3# 

J  =  K  - 1 

00030040 

2024# 

PQF  =  PQF#K6( J)/(QF0( J)+QF1( J)*X) 

00030050 

2025* 

Ml  =  -Al ( J ) *  X 

00030060 

2026# 

W  9  =  H  (  J  )  #  X 

00030070 

2027# 

NP(l.X)  =  NPC 1 , J )# (Q01 1 ( J )+Ql 1 1 ( J ) #X+M1*M9 )+NP( 2 , J )*( 001 2 l J ) 

00030080 

2028* 

1  +  Q  1 1  2  l  J )#X+Q212(J)#X2+W1*M9#M9  ) 

000  30090 

2029# 

1050 

NP ( 2  »  X )  *  -M1*NPU  ,  j  )+NP( 2,  J  )«(Q022  ( J )+Q122( J)#X-M1*W9) 

0003010C 

2030# 

IK  L  .  NE  .NL  AYS)  GO  TO  1060 

000  30  1  1  0 

2031  # 

S  =  0 . 0 

00030120 

2032* 

U  =  0 . 0 

000301 30 

20  33# 

GO  TO  1070 

00030140 

2034* 

1060 

S  =  (  NPC  1  .  L  )»2  1  1  +N!'<  2  .  L  1*2  1  2  )  *PQF/(QF  0  (  L  >  +  QF  1  (  L  )  *X  ) 

000301 50 

2035# 

IJ  =  (14P(l»L)*221*NP(2.L)*222)*PQF/(QF0(L)  +  QFl(l.)*X) 

00030160 

*.*36# 

10/0 

T  a  NP<  1  , l  )  #PQF 

000301 70 

2037* 

V  =  NPt  2  »  L  )  *PQF 

00030180 

2038* 

IF  t  LABEL .GT .1)  GO  TO  1080 

00030190 

2039# 

SO  =  S 

00030200 

2040* 

UO  a  U 

00030210 

2041* 

TO  *  T 

00030220 

2042* 

VO  a  V 

00030230 

2043* 

RETURN 

OOO  30240 

2044# 

1080 

SI  *  S 

00030250 

2045* 

U  1  =  U 

00030260 

2046* 

T1  *  T 

00030270 

2047* 

VI  *  V 

00030280 

2048# 

LABEL  =  LABEL-2 

00030290 

2049# 

GO  TO  1020 

00030  300 

2051# 

C 

CALCULATION  OF  TO , VO , SO , UO , T 1 , V 1 , S 1  AND 

00030320 

2052* 

C 

U1  FOR  X  .  LT  .XMAX . 

000  30  3  30 

2054* 

1100 

IF ( J  1  . EQ . 01  GO  IQ  1120 

00030350 

2055# 

DO  1110  J  *  1  . J I 

00030360 

2056* 

X  =  J  2  (  J  ) 

000  30  3  70 

2057* 

Ml  *-AL(X)#X 

00030380 

2058* 

M9  *  H ( X  )  » X 

00030390 

2  0  59  * 

CCU  ,  I  .  J)  *  C01K  J 1*2 . 0*W9 

00030400 

2060* 

C  C (  1  ,  2  ,  J  )  =  C  0  1  2  <  J  )  *  2 . 0«M9  »M9 

0003041 0 

2061* 

CC ( 2 . 2 . J 1  *  CO  1 1 < J 1-2 . 0»W9 

00030420 

2062* 

DDU.2.J)  *  DO  12<  J  )  #DDl  1  ,  1  .  J  )  #M9 

00030430 

206  3* 

00(2. 2. J)  *  0022 ( J )*DD( 2 . ! . J ) »W9 

00030440 

2064* 

FF (  1  .  1  .  J  )  =  -C01 1 ( J ) -2 . 0*M9 

00030450 

2065# 

FFU.2.JI  *  F012(J)*F112(J)*H9-2.0*W9»W9 

000  30<*60 

< 


206  6>* 

F  F  (  2 , 2  »  J  )  =  F022 ( J ) *2 . Q*W9 

00030470 

2067» 

GG ( 1 »  2  »  J  +  1 )  =  GO  1 2 ( J )+GG( 1 . 1 . J ♦ 1 )»N9 

00030480 

2068* 

GG( 2  » 1 »  J  +  1 )  =  G 0 2 1 (  J  )  +14  1 

00030490 

2069k 

GG ( 2  »  2 , J  +  1 )  *  G022( J  )  +  <G021 ( J >«H< K )+G122< J) 

00030500 

2070k 

HH<1.2,J+1)  =  H012(J)+HH( 1 ,  1  ,  J  ♦  1 )«W9 

00030510 

2071k 

HH<  2. 1 , J+l )  *  H0  2 I (  J  )  ♦  W  1 

00030520 

2072k 

HH ( 2  »  2 , J  + 1 )  =  H022IJ  )  ♦  HO 2 1 ( J )#W9+H122< J )*X+W1«W9 

00030530 

2073k 

1110 

CONTINUE 

00030540 

2074k 

1120 

00 

1150  K= 1 i M 

00030550 

2075* 

IFU1.EQ.0)  GO  TO  1140 

00030560 

2  0  7  6* 

DO  1130  I  =  1 , J 1 

00030570 

2077* 

IF ( J2( I ) . EQ. K )  GO  TO  1150 

00030580 

2078* 

1 1  30 

CONTINUE 

00030590 

2079» 

1140 

W1  »  BMU(K)*X 

00030600 

2080* 

W9  =  H  (  K  )  #  X 

00030610 

2081  * 

W10  *  W9  *  X 

00030620 

2082* 

W2  =  W10»BE(K> 

00030630 

2083* 

Wll  =  W2*W9 

00030640 

2084* 

W3  =  W9*C1(K) 

00030650 

2085* 

W4  =  BE ( K  )  *  X 

00030660 

2086* 

W  5  =  BU ( K  )  *  X 

00030670 

2087* 

W8  «  BUU(K)*X 

00030680 

2088* 

W  7  *  C1(K)»M9«M9 

00030690 

2089* 

W<  1  ,  1 . K )  s  A1(K)4W1-W2 

00030700 

2090* 

14  (  1 , 2  ,  K  )  =  -EE(K)+F  (  K  )*W9+I48  +  B2U(K)*W10-W11 

00030710 

2091* 

W<  1  .  3,K)  =  D(K  1-W3  +  W1-W2 

00030720 

2092* 

W(1,4.K)  =  -G<K)+H1(K)«149-BUU(K)*X-W7  +  B2UU(K)#W10-W11 

OQ 0  30  7  30 

2093* 

W( 2, 1  ,K  )  =  144 

00030740 

2094* 

W(  2  ,2  ,K  >  *  B  1  (  K  )  ♦ W5+W2 

00030750 

2095* 

W ( 2  .  3  .  K  )  =  C 1 ( K ) +  144 

00030760 

2096* 

14  (  2  »  4  ,  K  )  =  1 1 ( K ) +  W  3-W5  +  I42 

00030770 

2097. 

WC  3, 1  ,  K  )  *  D ( K  )  +W3-W 1  - W2 

00030780 

2098* 

W  <  3 , 2  »  K  )  =  G(  K  >  ♦  H  1  (  K  )»»I49-M8  +  W7~B2UU(  K  >*1410-141  1 

00030790 

2099* 

W<  3, 3, K  )  *  A  1  ( K  > - W 1 -W2 

0  0  0  3080  «j 

2100* 

M ( 3 , 4  ,  K  )  *  EE ( K  >+F< K >*W9+W8-B2U< K )*W10-W1 1 

00030810 

2101* 

W  (  4  ,  1  ,  K  )  *  -C 1 <  K  ) +  W4 

00030820 

2102* 

W  (  4 , 2  ,  K  )  =  I  I  (  K  )  -14  3  +H5  + W2 

00030830 

2103* 

W<  4 , 3  .  K  >  *  144 

00030840 

2104* 

14  (  4  *  4  ,  K  )  =  B 1  (  X  )  -W5+W2 

00030850 

2105* 

1150 

CONTINUE 

00030860 

2106* 

J  5 

*  J1  +  1 

00030870 

2107* 

PKK6  =  1.0 

00030880 

2108* 

DO 

1300  MM  *  1 , J5 

00030890 

2109* 

K  K  6  =  1.0 

00030900 

2110* 

N  *  J  5  ♦  1  - MM 

00030910 

2111* 

IF  CN-  1  )  1  1  60,1  1  60,1  1  70 

00030920 

2112* 

1160 

J  3  -  1 

00030930 

2113* 

GO  TO  1180 

00030940 

2114* 

1  1  70 

J  3  »  J2CN-1 )*1 

00030950 

2115* 

1180 

I  F ( J  5 -N )  1190,1190,1200 

00030960 

2116* 

1190 

J  4  *  M 

00030970 

2117* 

GO  TO  1210 

00030980 

2118* 

1200 

J  4  *  J  2  (  N  )  -  1 

00030990 

n-50 


’wnr 


2119* 

1210 

IF(J3.GT.J6)  GO  TO  1260 

00031000 

2120* 

DO  1230  IJ  =  J  3  »  J4 

00031010 

2121* 

IK  *  J4+J3-IJ 

00031020 

2122* 

II  =  I  K -f  1 

00031030 

2121* 

K  K  6  *  K  K  6  *  K  6  ( IK) 

00031040 

2  124* 

IF C IK . EQ  .  LAYER  1  PKK6  =  KK6 

00031050 

2125* 

EXPO  =  -X*T2(  1L  ) 

00031060 

2126* 

IF< EXPO. LT . -70 . 0 )GO  TO  1212 

00031070 

2  127* 

6XP1=EXP(EXP0) 

0003 1 080 

2128* 

GO  10  1214 

00031040 

2129* 

1212 

E  X  P 1  *  0 . 0 

00031 1 00 

2  130* 

1214 

DO  1220  1*1.4 

00031 1 1 0 

2131* 

DO  1 220  K  =  1.2 

00031120 

2  132* 

1  220 

RR(l.KflK)*(U(I.l*lk)»RR(l*K.in+U(l,2,lK)*RR(2,K, 

II  ) )  0  0  0  3  1  1  30 

21  33* 

I 

1 

*  E  X  P 1  ♦  14  (  1  •  3.  IK)#RR(  3  .  K  .  I  l  )  +  W  (  I  .4,  I  K  )  *  R  R  (  4  ,  K  .  IL) 

00031140 

2136* 

1230 

CONTINUE 

00031150 

21  35* 

1  240 

•:N  =  N-l 

00031160 

2  136* 

EXPO=-X*T2( J  3 ) 

00031170 

2  137* 

IF (EXPQ.LT . -70.0)GO  TO  1242 

00031180 

2138* 

EXP 

2  -  €  X  P ( E  X  PQ  ) 

00031 1 90 

2  139* 

GO 

TO  1244 

00031200 

2  l  4  0  * 

1  26  2 

EXP 

2-0  . 0 

0  V  0  3  1  2  1  0 

2  19  1  * 

12  44 

DO 

1250  1=1.2 

000  31 22U 

2  .  .2* 

DG  1250  K  =  1,2 

00031230 

2193* 

1  2  50 

P(I.K>  =  (GG< I , 1 , N 1 *R  R ( 1 .  K , J  3 ) +GG ( 1 ,2,N)*RR(2.K ,J3) ) 

0D0 31 260 

2199* 

I 

t 

*EXP2*HH<I.1.N)»RR(J,K.J3)+HH(I,^.I)»RR(6.K.J3) 

00031250 

219  5* 

PROD  =  P( 1 , 1 )*P( 2 ,2  ) 

00031260 

2156* 

DET  =  PROD-PC 1 , 2 >*P( 2 , 1  ) 

00031270 

2158* 

c 

TE5T  MATRIX . CONDI TION  BEFORE  INVERSION 

00031290 

2  1  50  * 

IF ( ABSCDET ) . IT. 1 . 0E-7*ABS( PROD)/ACCUR( 3) )  GO  TO  2000 

00031 310 

2151* 

QK  K  6  -  KK  6/DE  T 

00031 320 

2  152* 

PP( 1 . 1)  =  P( 2 . 2 ) *0KK6 

000  3  1  3  30 

2153* 

PPC  1  ,  2  >  =  -PC  1  , 2  )  *  OK  K  6 

00031 340 

2155* 

PP( 2  .  1)  =  -PC  2  .  1  )  *  QK  K  6 

00031 350 

2155* 

PPC2.2)  -  PC  1 , 1  )  *  QK  K  6 

00031 360 

2156* 

I F  <  N . EQ .  1  )  GO  TO  1310 

00031370 

2157* 

DO 

1260  1=1.2 

00031380 

2158* 

DO  1260  K  *  1.2 

00031 390 

2159* 

1  260 

NJC  I .K.NN)=PP( I . 1  )  * DD  (  1  , K , NN  )  *  PP (  I  ,2)*DDC2.K,NN) 

00031400 

2160* 

DO  1270  I  *  1,4 

0003141 0 

2161  * 

DO  1270  K  =  1,2 

0003 1420 

21  62* 

1  2  70 

P(I.K)  =CRRCI,l,J3)*NJ(  1 , K , NN  )  +  RR (  I  ,2,J3)*NJC2,K,NN))/KK600031430 

2  16  3* 

DO  1280  I  =  1,2 

00031440 

2165* 

PP(1.I)=(P(1.I)*E012(NN)*P(2,I))*EXP2*FF(1,1,NN) 

00031650 

2165* 

1 

•  PC  3.  I  ) *FF  (1,2, NN  )  *  P ( 4  » I  ) 

00031460 

2  166* 

1280 

PP(2»I)*P(2*I  )*EXP2*FF(2,l  ,NN)*P(3,I)+FF(2,2,NN)*PC4,n 

00031470 

2167* 

DO  1290  I  =  1,2 

000314^0 

2  168* 

DO  1290  X  =  1  .  2 

00031490 

2169* 

1  290 

RR(l»K.J3~2)  *  CCC I »  K  »  NN ) ♦ PP ( I  ,K  ) 

00031500 

2  170* 

RRC3.1.J3-1)  =  1.0 

000  31  51  0 

21  71  * 

RR( 3 , 2 , J  3 -  1  )  =  0.0 

0  0  0  3  1  S  2  0 
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2172* 

2173* 

2174* 

2175* 

2176* 

2177* 

2178* 

2174* 

2180* 

2181* 

2182* 

2183* 

2184* 

2185* 

2186* 

2187* 

2188* 

2189* 

2190* 

2191* 

2192* 

2193* 

2194* 

2195* 

2196* 

2197* 

2198* 

2199* 

2200* 

2201* 

2202* 

2203* 

2204* 

2205* 

2206* 

2207* 

2208* 

2209* 

2210* 

2211* 

2212* 

2213* 

2214* 

2215* 

2216* 

2217* 

2218* 

2215* 

2220* 

2221* 

2222* 

2223* 

2224* 


j  ii  VMpniJtn 


c 

c 

c 

c 

c 

c 


RR(4, 1 , J3-1 )  =  0.0 

00031530 

RR<4,2, J3-1 >  =  1.0 

00031540 

1300 

CONTINUE 

00031550 

1310 

IF (NTELL . EQ . 2 )  GO  TO  100 

00031560 

IF( LABEL .GT . 1 )  GO  TO  1330 

00031570 

1  320 

IF ( LABEL . EQ . 0 >  RETURN 

00031580 

NP ( 1 # 1 )  =  PPC 1  A  1 ) 

00031590 

NP( 2 , 1)  =  PP( 2 , 1 ) 

00031600 

GO  TO  1340 

00031610 

1330 

NP ( 1 » 1 )  =  PP( 1 , 2 ) 

00031 620 

NP(2,1)  =  PP ( 2 i 2 ) 

00031630 

1  340 

I F  C  J 1 . E Q , 0 )  GO  TO  1390 

00031640 

DO  1350  I  *  l.Jl 

00031650 

J  =  Jl  +  l-I 

00031660 

IFCLAYER.GT. J2CJ11  GO  TO  1360 

00031670 

1350 

CONTINUE 

00031680 

J  5  =  1 

00031690 

GO  TO  1390 

00031700 

1360 

DO  1380  I  '  l.J 

00031710 

IH  *  1*1 

00031720 

DO  1370  X  =  1,2 

00031730 

1370 

NP(K.IH)  *  NJ(K»1»I)*NP(1,I)+NJ(K,2,I)*NP(2,I) 

00031740 

1380 

CONTINUE 

00031 750 

J  5  =  J*1 

00031760 

1390 

J  *  LAYER 

00031770 

S  =><RRC 1  ,  1  , J )*NP< 1 ,J5)+RR(1,2,J)«NP(2.J5))/PKK6 

00031780 

U  *(RR(2,1»J1*NP(1,J51*RR(2»2»J)*NP(2,J51)/PKK6 

00031790 

T  »<RR(3,1,J1*NP<1 , J51+RR1 3,2 , J )*NPC2, JS1 1/PKX6 

0003J800 

V  « (RR<4. 1 . J )*NP( 1 , J5)+RR(4,2, J )«NP(2, J5) 1/PKK6 

00031810 

IF(LABEL.GT. 1  1  GO  TO  1400 

00031820 

TO  *  T 

00031830 

SO  *  S 

00031840 

uo  *  u 

00031850 

VO  «  V 

00031860 

RETURN 

00031870 

1400 

SI  *  s 

00031880 

T1  »  T 

00031890 

UI  =  U 

00031900 

VI  *  V 

00031910 

LABEL  -  LABEL-2 

00031920 

GO  TO  1320 

00031930 

_ 

- 00031940 

ARRIVAL  HERE  MEANS  THAT  SOLUTION  OF  THE  00031950 
CHARACTERISTIC  FUNCTIONS  HAS  BEEN  STOPPED  00031960 
PREMATURELY  BECAUSE  OF  ILL  MATRIX  CONDI-  00031970 


TION  MET  DURING  SOLUTION  PROCESS.  00031980 

- 00031990 

2000  MR1TE(NOUT,9000)X  00032000 

NTELl  »  l  00032010 

RETURN  00032020 

4000  FORMAT! '  ILL-CONDITIONED  DETERMINANT  FOR  X**.E15.7)  00032030 

END  00032040 

SUBROUTINE  FPIGRA  (1L.X)  00032050 
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2225* 
222  6* 
2227* 
2228* 
2229* 
2230* 
2231* 
2232* 
22  32  * 
2  2  3  4* 
22  35* 
22  34* 
223  7* 
22  28* 
2  2  39  • 
2240  * 
2  24  1  * 
2242* 
2243* 
2  2  44* 
2245* 
2246* 
2  2  4  7* 
C.  4  5  • 
2249* 
2250* 
2251  * 
2252* 
22  5  3* 
2254* 
2255* 
2256* 
2257* 
2258* 
2259* 
2260* 
2261  * 
2262* 

226  3* 
2264* 
2265* 
2266  • 
2267* 
2268* 
2269* 
2270* 

227  1  • 
2272* 
22  73* 
2274* 
2  2  75* 
22  76* 
2277* 


- 00032060 

THIS  SUBROUTINE  COMPUTES  THE  BESSElFUNC-  00032070 

TION-PART  OF  THE  INTEGRANDS  FOR  THE  00032080 

INTEGRALS  COMPUTED  IN  JNGRAL.  00032090 

FOR  I L - 1  THIS  PART  IS#  J0(XR)*J  1  (X)  000321  00 

FOR  11=2  THIS  PART  IS#  J1(XR)*JICX)  00032110 

COMPUTED  RESULTS  ARE  DELIVERED  AS  F P I GR ,  00032  1  20 

EXP1  AND  EXP2  IN  COMMON/ I GR AN/  00032130 

THE  SUBROUTINE  CALLS  IN  FUNCTION  BESS.  00032140 

- - - 00032  1  50 

REAL  LOAD.NU.ACCUR( 3) ,K5  00032160 

COMMON/ ASDT/L AYE  R , NL A YS  *  M , R . Z  »  NU ( 1 0 ) , ACCU R . L 0 AD , HOS T RS , NZE ROS , H (  9 ) 000 32  I  7  0 


l'K5(10).E(IO),AL(9)'THICX(9),RADJUS(10)  00032160 

COMMQN/IGRAN/T  0 ,VO,SO,UO.Tl.Vl,Sl»Ul'TQl.SQifFPIGR.EXPl,EXP2  00032190 

If (LAYER .NE . 1 )  GO  TO  20  00032200 

rC  =  T0-2.0*NUU)  00032210 

VG  *  VO -1.0  00032220 

11  =  T 1  -  1  .  0*2 . 0*NU(  1  )  00032230 

VI  -  Vl+1.0  00032240 

T  0 1  *  1 Q 1  -  1  . 0  0003225C 

20  IF ( R  .  tT  .  ACCURl  1 )  )  GO  TO  40  00032260 

IF(IL.EQ.2)  GO  TO  30  0003227C 

FPIGR  =  BESSfO . X*R  >*BESS<  i  ,X)/X  00032:60 

=  •1)  TO  60  0003  *290 

30  FPIGR  =  BE  SS  ( 1  »  X  *  R )  *  BE  SS  t 1 »  X ) / ( X# R  )  00032  30C 

GO  TO  60  00032310 

40  IF(IL.EQ.2)  GO  TO  50  00032320 

FPIGR  =  BE  SS (  1  , X  )  / X  000  32  330 

GO  TO  60  00032340 

50  FPIGR  =  0  .  5*BESS(  1  ,X  1  00032350 

60  IF ( NL AYS. EO . t AYER  )  GO  TO  70  00032  360 

I F l ABS( X* ( 2 . 0»H t LAYER ) -Z ) ) . GT , 70 . 0 >GO  TO  70  00032370 

EXP1  =  EXP(-X«(2.0»H(LAVER}-ZI>  00032380 

I F (  f X*2  )  . GT . 70 . 0 )GO  TO  90  000  32  390 

E  X  P  2  =  E  X  P ( -  X  *  2  )  00032400 

GO  TO  100  00032410 

'0  I F  (  ( X*Z  )  .  GT  .  70 . 0 )GO  TO  80  000  32420 

E  X  P i  =  0.0  00032450 

EXP2=EXP(-X*Z)  0003244  0 

GO  TO  100  00037450 

80  EXP1  *  0.0  00032460 

90  E  X  P  2  =  0.0  000  324  70 

100  RETURN  000324B0 

END  00032490 

FUNCTION  BESS(N.X)  00032500 

-  - - - 0003251  0 

THE  BESSEL  FUNCTIONS  J0(X)  AND  JI(X)  ARE  00032520 
EVALUATED  FROM  THEIR  CHEBYSHEV  SERIES.  00032530 

(SEE  CLENSHAW,MATH .  T AB L E S- VO L . 5 ,  00032540 

CHEBYSHEV  SERIES  FOR  MATH.  FUNCTIONS  00032550 

NPL-DSIR).  00032560 

THIS  PROGRAM  SELECTS  THE  APPROPRIATE  00032570 

CHEBYSHEV  CONSTANTS  ACCORDING  TO  id  HE  THE  R  00032580 
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2278*  C  N  =  0  OR  N=1  AND  WHETHER  X  IS  GREATER  OR  00032590 
2279*  C  LESS  THAN  8.0  AND  CALLS  IN  FUNCTION  CHEB  00032600 
2280*  C  TO  SUM  THE  SERIES.  00032610 

2281*  C - 00032620 

2282*  DOUBLE  PRECISION  B ( 1 2 . 2 ) , BP ( 5 . 2 ) , BO ( 5 , 2 ) , 2  00032630 
2283*  DATA  B  /- . 3D- 8 , . 76D- 7 , - . 1 76 2 D- 5 . . 3296 0D-4 , - . 46 06 26D- 3 . . 48 1 9 1 80D- 2 , 000 32 640 
2284*  1-.34893769D-1, .158067102D+0.-.370094994D+0, .2651786130+0,  00032650 
2285*  2-. 87234420-2, . 31 54 5594 3D+0. -.10-8, .290- 7. -.762D-6,. 158870-4,  00032660 
2286*  3-. 260444D-3,.3240270D-2,-. 291 7552 5D-1..1 7770911 7D+0,-. 66 1443934D+ 000032670 
2287*  4 , 1 . 2879941 0D+0 ,- 1 . 191801 1 6D+0 , 1 . 2967 1 754D+0/  00032680 
2288*  DATA  BP/ . 2D-8 , - . 52D-7 , . 3075D-5 ,- . 536522D-3 , 1 . 99892070D+0 ,  00032690 
2289*  1-.2D-8, .620-7,-. 398 7D-5. . 8989900-3,2. 0018060 8D+0/  00032700 
2290*  DATA  BQ/- . ID-8, . 180-7,-. 741D-6 ,. 683850-4,- . 31 1 1 1 709D-1 ,  00032710 
2291*  1 . ID-8, - . 21D-7 ,  . 914D-6 , - . 9627  70-4  , . 9  3555574D-1/  00032720 
2292*  M  =  N+l  00032730 
2293*  I F  <  X-8 . 0 )  1  ,  1.2  00032740 
2294*  1  2  =  X»X»0 . 0625-2 . 0  00032750 
2295*  BESS  =  CHE B < B ( 1 , M )  ,  1  2 , 2  )  00032760 
2296*  IF(N.EQ.l)  BESS  =  0.125*X*BESS  00032770 
2297*  RETURN  00032780 
2298*  22=  256.0/(X*X)-2.0  00032790 
2299*  XI  =  X-0. 78539816  00032800 
2300*  IF(N.EQ.l)  XI  =  X 1 -  1  . 5707963  0003281  0 
2301*  BESS  =  ( 0 . 79788456/SQRT«X ) )* ( CHEBCBPt 1 ,M> , 5 , 2 )»COS(XI >-8 . 0*  00032820 
2302*  I  CHEB(BQ( 1 ,M) , 5, 2) *SIN(XI )/X)  00032830 
2303*  RETURN  00032840 
2304*  END  00032850 
2305*  FUNCTION  CHEB(A,N,2)  00032860 

2306*  C - - - - - 00032870 

2307*  C  THIS  SUBPROGRAM  EVALUATES  THE  CHEBYSHEV  00032880 
2308*  C  SERIES  USING  THE  RECURRENCE  RELATION  00032890 
2309*  C  TECHNIQUE  (SEE  CLENSHAW  NPL  MATH.  TABLES  00032900 
2310*  C  VOLUME  5  PAGE  9).  00032910 

2311*  C - - - - - 000  32920 

2312*  DOUBLE  PRECISION  A(1),B(14),2  00032930 
2313*  B( 1 ) =0 . 00+0  00032940 
2314*  B(2)»O.0D+O  00032950 
2315*  DO  1  1=1, N  00032960 
2316*  B< I+2)  =  Z»B( I  +  l > - B  C  I )  +  A( I )  000  32970 
2317*  l  CONTINUE  00032980 
2318*  CHEB  =  0 . 5D0*( BCN+2 )-B(NI )  00032990 
2319*  RETURN  00033000 
2320*  END  00033010 
2321*  REAL  FUNCTION  I G  R  AND  (X, LABEL)  000  33020 

2322*  C - 00033030 

2323*  C  THIS  SUBROUTINE  COMPUTES  THE  INTEGRANDS  00033040 
2324*  C  FOR  THE  INTEGRALS  COMPUTED  IN  INGRAl.  00033050 
2325*  C  USE  IS  MADE  OF  THE  RESULTS  OF  FPIGRA  AND  00033060 
2326*  C  MATRIX  STORED  IN  COMMON/ 1  GRAN/ .  00033070 

2327*  C - 00033080 

2328*  REAL  LOAD , NU , ACCU R (  3  )  , X 5  00033090 
2329*  COMMON/ASDT /LAYER .NLAYS ,M, R ,Z.NU< 10) . ACCUR . L QAD . HOST RS . NZEROS , H ( 9 ) 000 3 3 1 00 
2330*  1 , K5< 10) ,E ( 10) , AL< 9 ) , THICK! 9 ) .RADIUS! 10 )  00033110 
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2  3  31* 
2  332* 
2  333* 
2334* 
2  335* 
2336* 
2337* 
2333* 
2339* 
2340* 
2341* 
2342* 
2343* 
2344* 
2345* 
2  346* 
234  7* 
2  3  4  3  * 
2349* 
2350* 
2351  * 
2352* 
2*53* 
2  354* 
2355* 
2356* 
2357* 
2358* 
2359* 
2360* 

236  1  * 
2362* 
2363* 
2364* 
2365* 
2366* 
2  367* 
2368* 
2369* 
2370* 
2371* 
2372* 

237  3* 
2374* 
2375* 
2376* 
2377* 
2378* 
2  379* 
2380* 
2381* 
2382* 
2  38  3* 


COMMON/ I  GRAN/TO ,V0,S0,U0,T1*V1,S1,U1,TQ1,SQ1,FPIGR,EXP1,EXP2  00033120 

GO  TO  (10, 20, 30, 40, 50, 60. 70, 80, 90, 100,120, 120,130.140,150.260, 170 100033130 
1, LABEL  000  33140 

10  I  GRAND  =FPIGR*X*( ( U 0 * ( K 5 ( L A YE R ) -X*Z ) -S 0 ) * E XP 1 ♦ ( TO ♦ VO * ( K 5 ( L A Y E R ) ♦ X * 0 0 0  3 3 1  5 0 
17)  )*EXP2)  000331  60 

RETURN  00033170 

20  I  GRAND  =FPIGR*X*(U0*EXP1  +  V0*EXP2  )  000  33180 

RETURN  0003319G 

3D  IGRAND  =  FPIGR*((UO*(2.0*K5(LAYER>-X*Z)-5  0)*EXP1-(TO*VO*(2.0*K5(LAY0003:'’00 
1ER  )+X*Z) )*EXP2 )  C003321Q 

RETURN  00033220 

40  IGRAND  =FPIGR*( ( S0+U0*( 1 . 0+X*Z) ) *EXPl+( V0*( 1 . 0-X*Z)-T0 )*EXP2 )  00033230 

RETURN  0C03324O 

5  0  IGRAND  =FPIGR*X*R*(  (50  +  U0*(2.  *NU(  LAYER>+X*Z)>*EXP1  +  (T0  +  V0*<X*Z-2.*00CI3325D 
1NU< LAYER ))) *6XP2 )  0003326C 

RT  TURN  00033270 

60  IGRAND  =  FPIGR*X*( (SI +U1 *( 2 . 0*NU<  LAYER) +X*Z) ) *EXP1 M  T] +V1  * ( X*2-2 . 0*00033280 
INU( LAYER)  )  )*EXP2  )  0003  3290 

RETURN  00033300 

70  IGRAND  »FPIGR*( (S2+U1*( 1 .0+X*Z))*EXPl+(Vl*( 1 .0-X*Z)-Tl )*EXP2)  00033310 

RETURN  00033320 

31  IGRAND  -FPIGR*X*R*(  (S1+U1*(1  . 0  +  X*Z )  )*EXP1*(V1*(1  .  Q-X*Z)-T1  )*EXP?)  000.3  3  3  30 
RETURN  00033340 

99  IGRAND  - F P  I  GR * X  * R * ( U 1  * E X P 1 ♦ V 1  * E X P 2  )  00033350 

RETURN  C0033360 

100  IGRAND  =  F  P I GR  *  < ( S 2 +U 2  * ( 2 . *NU ( L AYE R ) *X*Z ) ) * E XP 1 ♦ ( T 1 ♦ V 1  * ( X*Z- 2 . * NU ( L  0 0 0  3  3 3 7 0 


1  AYER ) ) )*EXP2 ) 

RETURN 

110  IGRAND  =FPIGR*(U1*EXP1-V1*EXP2) 

RETURN 

120  IGRAND  =FPIGR*( ( S 1 +U 1  * ( 1 . +X  *  Z ) )*EXP1*(V1*( 1 .-X*Z)-T1 >*EXP2)/X 
RETURN 

130  IGRAND  =FPIGR*X*(SQ1*EXP1-TQ1*EXP2 > 

RETURN 

140  IGRAND  =FPIGR*(SQ,.*EXP1*TQ1»EXP2  ) 

RETURN 

150  IGRAND  =FPIGR*X*R*(SQ1*EXP1*T01*EXP2 ) 

RETURN 

160  IGRAND  =FPIGR*( SQ1*EXP1 -TQ1*EXP2 ) 

RETURN 

170  IGRAND  SFPIGRM5Q1*EXP1*TQ1*EXP2)/X 
RETURN 
END 

SUBROUTINE  CALC(INT.V,R,MU,RADI,FT. LOAD .HOST RS , PS  10 , Z ) 

COMPONENTS  OF  THE  S T F E SSE S , ST R A I  NS  AND 
THIS  SUBROUTINE  COMPUTES  THE  CYLINDRICAL 
DISPLACEMENTS  FROM  THE  17  INTEGRALS  STO¬ 
RED  IN  INT.  THESE  CALCULATED  COMPONENTS 
ARE  STORED  IN  V  AND  OUTPUTTED. 

REAL  INT< 17) ,V(15> , MU , L 0 AD , C ( 6 ) 

INTEGER  FM( 1 9 ) , FMT ( S) , T ( 1 2 ) 


00033380 
00033390 
00033400 
0003341 C 
00033420 
00033430 
00033440 
00033450 
00033460 
00033470 
00033480 
00033490 
00033500 
00033510 
00033520 
00033530 
00033540 
00033550 
-00033560 
00033570 
00033560 
00033590 
00033600 
0003361 0 
-00033620 
00033630 
00033640 


B-55 


2384* 
2385* 
2386* 
2387* 
2388* 
2  389* 
2390* 
2391  * 
2  392* 
2  39  3* 
2394* 
2395* 
2396* 
2397* 
2398* 
2399* 
2400* 
2401* 
2402* 
2403* 
2404* 
2405* 
2406* 
2407* 
2408* 
2409* 
2410* 
2411* 
2412* 
2413* 
2414* 
2415* 
2416* 
2417* 
2418* 
2419* 
2420* 
2421* 
2422* 
2423* 
2424* 
2425* 
2426* 
2427* 
2428* 
2429* 
2430* 
2431* 
2432* 
2433* 
2434* 
2435* 
2436* 


•  X  ) 


LOGICAL  STRESS . EPS . R10W 

C0MM0N/STRDTA/STRE5S( 27), EPS (17), RLOW, ST, CT,L, ACC 
COMMON/TAPE/NOUT 
DATA  FM( 1 ) >  FMT  »  F  M  ( 1 9 ) , T/ 

♦  •(IX  * , • ,E12'  ,  •  .4, 1  *  .  *OX  ,,,,12X’,» 

♦  *  DISP  *  *  *LACE*  ,  *MENT'  ,  *S 

♦  •  S’  , 'TRES1 ,  *  SE S  *  »  ' 

♦  •  S* , ' T  R A  I ' , *NS  1  #  •  '/ 

DO  10  1*1,15 

10  V( I ) *0 . 0 

IF( (STRESS (  4) ,OR.STRESS(  5 ) . OR . STRESSt 

♦  STRESS (11)). ANO . ( . NOT . R LOU ) >  FCT= ( 2 . 0* INT ( 1 2  ) 

+  14 ) +4 . 0*INT( 17)  )/R 

IF( ,NOT.STRESS(  1))  GO  TO  20 

V(  1  )  «FT*RADI  *CT*  (  2 . 0*  INK  I  7  )  ♦  I  NT(  1  2  )  -  INK  7)) 

IF(RLOW)  GO  TO  20 

V(  1)*V(  1 )-FT*R*RADI*  INT (  4) 

20  I F ( S  TRE  55 (  2))  V(  2 ) =F T * R AD  I  *  ST * ( 2 . 0* ( I NT( 1 7 ) - I N T ( 1 4 >  )  + 1 N T (  1  2  )  ) 
IF ( .NOT .STRESS(  3))  GO  TO  30 
V(  3)s-FT*RADI*INT (  3) 

IF(RLOW)  GO  TO  30 

V(  3 ) 8 V (  3)+FT*R*RADI*CT*( ( 2 . 0-2 . 0*MU)*1NT( 1 1 )-INT( 10)  ) 

30  I F (  . NOT . ST RESS (  4))  GO  TO  40 

9))  +  lNT(  1 ) ♦ I  NT (  4 ) -  2 . 0  *  I  NT (  2) 


00033650 
00033660 
00033670 
00033680 
00033690 
00033700 
00033710 
00033720 
00033730 
00033740 

7) .OR .STRESS( 10) .OR .  00033750 

INK  7W.  0*INT(00033760 
00033770 


40 


V(  4)-CT»(INT( 

I  F ( R  LOW ) 

V(  4  )  =  V (  4)-CT*FCT 
I F (  . NOT . ST  R  E  SS (  5)) 


8  )  ♦  2 . 0*MU*  INK 
GO  TO  40 


GO  TO  50 


*/(  5 ) *CT*  2 . 0*MU*INT  (  9 > - 2 . 0 *MU *  I  NT (  2)-INT(  4) 


GO  TO  50 


50 


60 


70 


80 


GO  TO  60 


GO  TO  60 


2  )  ) 


IF ( RLOW ) 

V(  5 ) =  V (  5)+CT*FCT 
IF ( .NOT . STRE5S(  7)) 

V (  7)=ST*INT( 15) 

I F ( RLOW) 

VC  7 ) 8  V (  7)-ST*FCT 
IF<  .NOT.STRESSC  10)  )  GO  TO  70 

V< 10)*FT*(CT*INT(  8  )  ♦  I N  T  (  1  MINK  4  >~  (  2 . 0-2 . 0*MU  )  *  INT  ( 
IF(RIOW)  GO  TO  70 

V(  10)*V<  10)-FT*CT*FCT 
IF(  .NOT.STRESSC 1 1) )  GO  TO  80 
veil  )»-FT*INTC  4) 

IF(RLOW)  GO  TO  80 

V(  1  1  )  =V( 1 1 )  +  FT*CT*FCT 

IF  (  S  T  R  E  SS  (12))  V(  12  )*FT*<CT*<  (2.0-4. 0*MU)*INT(  9)-INT(  8)>* 
►  2 . 0  *MU  *  I  NT  (  2  )  -  I  NT  (  D) 

IF(Z. LT. ACC)  GO  TO  90 

I F  <  STRESS (  6))  V(  6  )  =CT* ( ( 2 . 0-2 . 0*MU  )  *  INK  9)-INT(  8)>-INT( 
IF(STRESS(  8))  V<  8 ) *C T « ( I  NT ( 16 ) ♦ I NT( 1 0 ) - I  NT '  6))-INT(  5) 

I  F ( S  TRESS (  9))  V(  9  )  = ST * ( I N T ( 1 6 ) - I  NT ( 1 3 ) ♦ I NT ( 1 0 ) ) 

GO  TO  110 

IF ( ABS( R-l . 0 ) . LT . ACC )  GO  TO  100 
1FCR .GT  .  1 .0)  GO  TO  1  10 

I  F  (  ST  R  ESS  <  6))  V(  6K-LOAD 
I F ( S  TR  ESS (  8))  V<  6 > = -HOS T RS*C05 ( PS Z 0 ) 


l  ) 


00033780 
00033790 
00033800 
00033810 
00033820 
00033830 
00033840 
00033850 
00033860 
00033870 
00033880 
C0033890 
00033900 
00033910 
00033920 
00033930 
00033940 
00033950 
00033960 
00033970 
00033980 
00033990 
00034000 
00034010 
00034020 
00034030 
00034040 
00034050 
00034060 
00034070 
00034080 
00034090 
00034100 
000341 10 
00034120 
00034  1  30 
000  34 1  A 0 
00034150 
00034160 
00034170 


2437* 

I F ( ST  R  ESS (  9)1  V(  9 ) =HOSTRS* S I N ( PS  I 0 > 

0003*180 

2438* 

GO  TO  110 

0003* 190 

2*39* 

100 

IF(STRESS(  6))  V(  6)=-0.5#LOAD 

0003*200 

2**0# 

IF (STRESS!  8))  V(  8  )  =  -  0 . S«HOS T R S * CDS ( P S I 0 > 

0003*210 

2441  * 

IF(STRESS(  9))  V(  91=  0 . 5«HOSTRS*SIN( PSI 0 ) 

0003*220 

2**2# 

110 

IF (STRESS! 1 3 ) )  V(13)=FT*V(  7) 

000  3*2  30 

2**3# 

IF(STRESS( 1*) )  V  ( 1*)=FT#V(  8) 

0003*2*0 

2***# 

I F ( STRESSC 15))  Vd5>=FT#V(  9) 

0003*250 

2**5# 

DO  120  1=2,18 

0003*260 

2**6# 

120 

FMC I )  =  T  (  8  > 

000  3*2  70 

2**7# 

DO  130  I  =  *.  16,3 

oco3*:ao 

2**8# 

1  30 

FMC I ) s  F  MT ( 3) 

0003*290 

2**9# 

K  =  0 

0003*300 

2*50# 

J  =  0 

0003*31 0 

2*51# 

DO  210  1=1.15 

0003*  320 

2*52# 

j-j*i 

0003*330 

2*53# 

IF (  I-*  )  1  90  ,  1  60  ,  1*0 

0003*3*0 

2*5*# 

i*0 

IF  (  I  -  I  0  >  190, 1  50,  190 

0003*350 

2455* 

1  50 

IF(K.EQ.O)  GO  TO  180 

00034360 

2*56# 

WRITE(NOUT,9010>  TTCJ) ,J=5.S) 

0003*370 

2*57# 

WR  ITE ( NOUT , FM)  CC(J),J  =  1,K) 

000  3*  380 

2  4  48* 

GO  TO  170 

0003*390 

2*^# 

1  t>G 

IF(K.EQ.O)  GO  TO  180 

0003**00 

2-uO# 

WRITE(NOUT.9000)  (T(J),J=1.4) 

00034410 

246  1  * 

WRITE(N0UT,9013)  ( C < J ) , J = 1 , K) 

2462. 

1  7  0 

K  =  0 

000344  30 

246  3* 

180 

j  =  i 

0003***0 

2464. 

190 

M=3»J 

00034450 

2*65# 

IF( .NOT.STRESS(I))  GO  TO  200 

0003**60 

2466* 

K  =  K  *  1 

■  0003**70 

2467* 

C  (  K  )  =  V  (  I  ) 

00034480 

2*68# 

FM ( M- 1 ) =  F M T  C 1 ) 

0003**90 

2469* 

F  M ( M  ) *  FMT ( 2 ) 

0003*500 

2*70# 

GO  TO  210 

00034510 

2471* 

200 

FMCM-l )  =  F  MT ( * ) 

0003*520 

2*72# 

FM ( M  )=FMT(5) 

0003*530 

2*73# 

210 

CONTINUE 

0003*5*0 

2*7*# 

IFCK.EQ.O)  RETURN 

0003*550 

2475* 

WRI  TE CNOUT , 9010 )  < T C J  )  ,  J * 9  ,  1  2  ) 

0003*560 

2*76# 

WRITE(NOUT.FM)  (C(J),J=1.K) 

0003*570 

2*77# 

RETURN 

0003*580 

2*78# 

9000 

FORMA  T ( IX.4A4/5X,  ’RADIAL ' » 1  2X , 'TANGENTIAL  * , 14X, 

’VERTICAL  ' 

)  0003*590 

2*79# 

9010 

FORHATdX,  4  A4/5X.  ’RADIAL’,  L2X,'  TANGENTIAL  '  .  14X  , 

'  VERTICAL ' 

. 1 2X ,  ’ R  ADO  0 0  3 *  6  0  0 

2*8n  ** 

♦  ./TANG.'  »  1 1 X  , ’RAD. /VERT. *  ,  1  2X  , ’TANG. /VERT.  *  ) 

0003*610 

2*8  * » 

9011 

FORMATC IX, 3CE12.*, 10X) 1 

2482* 

END 

0003*620 

2*83# 

SUBROUTINE  OU TPUT ( E PS . C > K , l ) 

0003*630 

2484* 

c - 

- 0003*6*0 

THIS  SUBROUTINE  OUTPUTS  BY  MEANS  OF  THREE  0003*650 

SUBSEQUENT  CALLS  FROM  THE  MAIN  PROGRAM  0003*660 

THE  TOTAL  S T R E SSE S , S T R A  I  NS  AND  SISPLACE-  0003*670 
MENTS.  0003*680 

- 0003*690 


2490k 

INTEGER  FMC 16 1 , FMTC8 1 

00034700 

249  l  i* 

LOGICAL  EPSC6) 

00034710 

2492* 

DIMENSION  CC6 ) . TKSTC6 ,4 ) 

00034720 

249  3* 

cqmmon/tape/nout 

00034730 

2494k 

DATA  TKST/ 

00034740 

2495* 

1 •  T  O' , •  T  A* . •  L  1  »  ’  S  T  '  ,  '  R  E  •  ,  '  S  S  '  , 

00034750 

2496* 

2,T0',’TA',,L  '.’S  T  •  ,  '  R  A  ','1  N 

00034760 

2497* 

3*  T  0'.'  T  A ' . ‘  L  '.’D  I  ’,'S  P  • , ' L  A  •, 

00034770 

2498* 

4  '  C  E  '  ,  *  M  E  '  ,  '  N  T  '  ,  *  • , •  •  ,  •  •/ 

00034780 

2499k 

DATA  FMT.FMC161/ 

00034790 

2500k 

1 • (6A4 * , ' . 12X ' , •  ,»'»E12,»'.3  • , • ( 12A' , '4,48' , ’X  •/ 

00034800 

2501k 

IFCL.NE. 3)  GO  TO  10 

00034810 

2502k 

FM( 1 1-FMTC61 

00034820 

2503k 

FM(2)=FMTC7) 

00034830 

2504k 

FMC  3  )  s  F  MT  C  8 ) 

00034840 

2505k 

GO  TO  20 

00034850 

2506k 

10 

F  M ( 1 ) =FMTC 1  ) 

00034660 

2507k 

FMC  2 ) -FMTC  3 ) 

00034870 

2508k 

FMC3)=FMTC3) 

00034880 

2509k 

20 

N  »  0 

00034690 

2510k 

M  =  2*K  >2 

00034900 

2511k 

DO  40  I =  4 , M  r  2 

00034910 

2512* 

J-I/2-1 

00034920 

251  Jk 

I F ( .N0T.EPSCJ1!  GO  TO  30 

00034930 

2514k 

FMC I ) » F MT C  4 ) 

00034940 

2515k 

FMC I  +  1 1  * F MT ( 5  ) 

00034950 

2514k 

N  =  N+  1 

00034960 

2517k 

C(N)>C( J) 

00034970 

2518k 

GO  TO  40 

00034980 

2  519k 

30 

FMC I )<FMTC2) 

00034990 

2520k 

FMC Ik1)=FMTC3) 

00035000 

2521k 

40 

CONTINUE 

00035010 

2522k 

1F( l . EQ. 3)  GO  TO  60 

00035020 

2523k 

IFCN.EQ.O)  GO  TO  50 

00035030 

2524k 

WRITECNOUT ,FM)  C  TKST  C I .11,1-1, 61,  CCCI). 1*1. N) 

00035040 

2  52  5k 

RETURN 

00035050 

2526k 

50 

WRITECNOUT, FM)  C TKST C I , L 1 , I  -  1 , 6 1 

0003S060 

2527k 

RETURN 

00035070 

2528k 

60 

DO  70  1=10,15 

00035080 

2529k 

70 

FMC I ) *  F  M  T  C 3) 

00035090 

2530k 

IFCN.EQ.01  bO  TO  80 

00035100 

2531k 

WRITE  CNOUT.FMl  C  TKST  C I ,31,1-1,61 , C TKST ! I , 4 1 , I  *  1 , 6 1 , CCCI1, 1-l.Nl 

00035110 

2532k 

RETURN 

00035120 

2533k 

80 

WRITEC  NOUT, FM)  ( TKST ( I,3),I*1,6),(TKST<I,4),I*1.6) 

00035130 

2534k 

RETURN 

00035140 

2S35» 

END 

00035150 

2536k 

SUBROUTINE  JACOBI  CN,U,ND,N,IVEC,W,I01 

00035160 

2538k  C 

SUBROUTINE  JACOBI  TO  COMPUTE  EIGENVALUES 

00035180 

2539k  c 

AND  EIGENVECTORS  OF  A  SYMMETRIC  MATRIX. 

00035190 

2540k  c 

H  IS  THE  GIVEN  MATRIX, THE  DIAGONAL  OF 

00035200 

2541k  C 

WHICH  CONTAINS  AFTER  THE  ITERATION  THE 

00035210 

2542k  c 

EIGENVALUES  OF  H. 

00035220 

254J* 
2544* 
2545** 
2546** 
2547*. 
2548* 
2549** 
2550** 
2551** 
2552** 
2553** 
2554*. 
2  555** 
2556*i 
2  557* 
2558* 
2559* 


U  IS  THE  MATRIX, THE  COLUMNS  OF  WHICH  ARE  00035230 
THE  EIGENVECTORS  OF  H.  00035240 

N  AND  NO  ARE  THE  DIMENSIONS  OF  THE  ACTUAL  00035250 
MATRIX  AND  THE  ONE  USED  IN  THE  DIMENSION-  00035260 
STATEMENT  OF  THE  C AL L I NGPROGR AM  00035270 

RESPECTIVELY.  00035280 

IVEC=0  IF  NO  EIGENVECTORS  ARE  REQUIRED,  00035290 
I VEC  =  1  IF  THE  EIGENVECTORS  SHOULD  BE  00035300 

CALCULATED.  00035310 

THE  ACCURACY  OF  THE  EIGENVALUES  IS  ABOUT  00035320 
1  . 0E-6 , THE  ACCURACY  OF  AN  EIGENVECTOR  IS  000  35  3  30 
ABOUT  1 .0E-6/D, WHERE  D  IS  THE  MINIMUM-  00035340 
DISTANCE  OF  THE  CORRESPONDING  EIGENVALUE  00035350 

FROM  THE  OTHER  EIGENVALUES.  00035360 

W  AND  IQ  ARE  WORKINGSPACES, WHICH  SHOULD  BE00035370 
DIMENSIONED  IN  THE  CALLING  PROGRAM.  00035380 

- - -  0  00  35  390 


2561  * 

INTEGER  IQIND) 

00035410 

2562* 

DOUBLE  PRECISION  TA . S 1 , CO , 2 , Y , HTE , UTE 

00035420 

2563* 

AN  *N 

00035430 

2564* 

NMI 1  =  N-  1 

00035440 

2565* 

IF ( I VEC- I )  60.10,60 

00035450 

2.  6* 

10 

DO  50  ;=i.n 

00035460 

2  ‘j  6  7  * 

DO  40  J  *  1  , N 

00035470 

2568* 

IF(I-J)  30,20,30 

00035480 

2569* 

20 

U  (  I  ,  J  )  *  1 . 0 

00035490 

2570* 

GO  TO  40 

00035500 

2571  * 

30 

U(  I ,  J  )**0 .0 

00035510 

2572* 

40 

CONTINUE 

00035520 

2573* 

50 

CONTINUE 

00035530 

2574* 

60 

DO  90  1=1, NM I 1 

00035540 

2575* 

WCI)=0.0 

00035550 

2576* 

IPL1=I+1 

00035560 

2577* 

DO  80  J  = I  PL  1  ,  N 

00035570 

2578* 

IF(W( I )-ABS(H( I , J  )  1  )  70,70,80 

00035580 

2579* 

70 

HI  I ) =  ABS ( H I  I  , J  )  ) 

00035590 

2580* 

I Q I  I >  =  J 

00035600 

2581* 

80 

CONTINUE 

00035610 

2582* 

90 

CONTINUE 

00035620 

2583* 

100 

DO  120  1=1 .NMI 1 

00035630 

2584* 

IF  I  I .EQ. 1 )  GO  TO  110 

000  356<«0 

2585* 

IF  (XMAX  .  GE  .  HI  I  ))  GO  TO  120 

00035650 

2586* 

110 

XM A  X  *  W I  I  ) 

00035660 

2587* 

IPIV«I 

00035670 

2588* 

J  P I V  *  I Q I  I  ) 

00035680 

2589* 

120 

CONTINUE 

00035690 

2590* 

1FIXMAX-1 .E-12/AN)  170,170,130 

00035700 

2591* 

1  30 

2  *H< 1PIV. IPIVl-HI JPIV, JPIV) 

00035710 

2592* 

Y  ■  2 . 0D0*DBLE I  HI 1PI V , JP I V ) ) 

00035720 

2593* 

TA  =Y/t DABS! 2 1 *DSQRT I2»Z»Y»Y ) ) 

00035730 

2594* 

IFI2.LT. 0.0D0)  TA  =  - T  A 

00035740 

2595* 

CO  =1 .DO/DSQRTI 1 . D0*TA*TA) 

00035750 

B-59 


2594* 

SI  =  T  A  *C0 

00035740 

2597* 

HI I *H ( IPIV  » IPIV) 

00035770 

2598* 

HJJ=H(JPIV, JPIV) 

00035780 

2599* 

HIJ=H(IPIV. JPIV) 

00035790 

2400* 

DO  140  K=1,N 

00035800 

2401* 

HTE=H(K, IP1V) 

00035810 

2402* 

H(K,IPIV)=DBLE<H(K,IPIV))*CO*DBLE<H(K,JPIV))»SI 

00035820 

2603* 

H( K , JPI V)  =  DBLE(H<  K . JPI V) )»C0-HTE*S1 

00035830 

2404* 

H(  IPIV. K  )=H(  K , I P I V ) 

00035840 

2405* 

H( JPIV  ,K  >=H( K , JPI V) 

00035850 

2404* 

140 

CONTINUE 

00035840 

2407* 

H( IPI V, JPI V) =0 . 0 

00035870 

2  6  08* 

H( JPI V, IPIV) *0 . 0 

00035880 

2409* 

AA*DBLE(HIJ)*TA 

00035890 

2410* 

H1IPIV , IPIV )=H 1 I  +  AA 

00035900 

2411* 

H( JPIV, JPIV)=HJJ-AA 

00035910 

2412* 

IFCIVEC)  60.60*150 

00035920 

2411* 

150 

DO  140  K-l.N 

00035930 

2414* 

U T  E  =U ( K  . IPIV) 

00035940 

2415* 

U(K> IPIV) *DBLE(U(K, IPIV) >»CO*DBLE(U(K. JPIV) )«SI 

00035950 

2414* 

U(K,JPIV)=DBLE(U(K,JPIV))«CO-UTE»SI 

00035960 

2417* 

140 

CONTINUE 

00035970 

2418* 

GO  TO  60 

00035980 

2419* 

170 

RETURN 

00035990 

2420* 

END 

00036000 

2421  * 
2422* 

SUBROUTINE  ESORT  ( H . U , ND • N , I V EC . M , I Q ) 

00036010 

c  * 

c 

SUBROUTINE  ESORT. 

00036030 

242  3* 

2424* 

c 

THIS  ROUTINE  SORTS  EIGENVALUES  (AND  EIGEN 

00036040 

2425* 

c 

VECTORS)  OBTAINED  FROM  SUBROUTINE  JACOBI. 

00036050 

2424* 

c 

H  *  ORIGINAL  MATR I X ( ND , ND ) . 

00036060 

2427* 

c 

U  =  EIGENVECTORMATRIXI ND.ND) . 

00036070 

2428* 

c 

ND  =  MAX.  DIMENSION  OF  MATRICES. 

00036080 

2429* 

c 

N  =  ACTUAL  DIMENSION  OF  MATRICES. 

00036090 

2430* 

c 

I  V  E  C  =  1  WITH  EIGENVECTORS, 

00036100 

2431* 

c 

=0  NO  EIGENVECTORS. 

00036110 

2432* 

c 

W  *  WORK INGSPACE ( ND  )  . 

00036120 

2433* 

2434* 

c 

IQ  .  WORKINGSPACE(ND) . 

00036130 

REAL  H(ND.ND) .  U ( ND  »  ND ) , W  <  ND ) .DUMMY 

00036150 

2435* 

2434* 

INTEGER  N. IQ (NO) , f DUMMY >  l  » J  .K,  IVEC 

00036160 

2437* 

LOGICAL  LOGIC 

00036170 

2438* 

c 

00036180 

2439* 

DO  10  I  *  l  »  N 

00036)90 

2440* 

W<  I  )  =H(  I  .  I  ) 

00036200 

2441* 

10 

1 0  (  I  )  =  I 

00036210 

2442* 

J  *  N 

00036220 

2443* 

20 

LOGIC= . FALSE . 

00036230 

2444* 

K  =  J 

00036240 

2445* 

DO  30  1*2. K 

00036250 

2444* 

I F ( W ( I - 1 ) . GE . M ( I ) )  GO  TO  30 

00036260 

2447* 

LOGIC. . TRUE . 

00036270 

2448* 

DUMMY  *  H ( 1-1 ) 

00036280 

B-60 


2649* 

U( I-l )>U(I > 

00016290 

2650k 

MCI )  =  DUMMY 

00016100 

2651  * 

F  DUMMY  =  101 I-l ) 

00016110 

2652m 

IQC I— 1 l-IQCI > 

00016120 

2651m 

IQC  I 1  *  F DUMM V 

00036330 

2  6  54  * 

j  =  i  - 1 

00016160 

2655m 

10 

CONT 1NUE 

00036350 

2656m 

IF  (LOGIC)  GO  TO  20 

00036360 

2657m 

IF  ( I  VEC . EQ . 0 1  GO  TO  60 

00036370 

2658* 

DO  40  I  =  1  ,  N 

00036380 

2659* 

K  *  I Q  (  I  ) 

00016390 

2660m 

DO  40  J  *  1  ,  N 

0C0  36400 

266  1  m 

40 

H( J  ,  I)  =U<  J , K ) 

0003661 0 

2  662  * 

DO  50  I  =  1  ,N 

00036620 

266  3* 

DO  50  J-l.N 

00036430 

2666m 

U  (  I  ,  J  )  =  H (  I , J ) 

00036440 

266  5m 

50 

H  <  l  .  J  )  =  0 . 0 

00036650 

2666* 

60 

DO  70  1  =  1  ,N 

00036660 

266?* 

70 

H< I, I >*MC I  ) 

0  0  0  3  6  6  7  0 

2668* 

RETURN 

00036480 

2  6  6  9  * 

END 

00036690 

2  6  7  Q  * 

SUBROUTINE  RNN<AA.BB,RN,ALOAD.ALIN,CAREA) 

00036500 

2  6  7  1* 

c 

FLEXIBLE  PAVEMENT  ROUTINE 

00036510 

2* 

c 

COMPUTES  THE  LIMITING  VERTICAL  STRAIN  AS  A  FUNCTION  OF  LOAD 

00036520 

26?3* 

c 

REPETITION.  INDEPENDENT  OF  THE  SUBGRADE  YOUNG'S  MODULUS. 

0003653D 

2676m 

COMMON  VSTR ,STRL . ITER .STRL2 

00036560 

2675m 

COMMON/RAO  I AL/STSL .OSM.FS .SWL 

00036550 

2676m 

WRITE! 6 . 10) 

00036560 

2677* 

10 

FORMAT (//'PROGRAM  USING  STRAIN  REPETITION  NUMBER  . •//) 

00036570 

2678m 

CALL  FFRD( 5, AA, 1 ] 

2678m 

CALL  FFRD15.BB.21 

2680* 

CALL  FFRD(5.RN.2) 

2681  m 

CALL  FFRO( 5.ALOAD.2) 

2682* 

CALL  FFRD( 5 . AL IN  .  2  1 

26BJm 

CALL  FFRDC5.CAREA.2) 

2686m 

CALL  F  F RD ( 5  »  DSW , 2 ) 

2685* 

CALL  F  F  RO ( 5 . SW  L . 2 ) 

2686« 

Y  Y  a  A  LOG  1  0  (  RN ) 

00036600 

2687* 

Q* AA*YY+BB 

0003661 0 

2688m 

5  T  R  L  *  l  0  .  *  *Q 

00036620 

2688m 

RETURN 

00036630 

2690m 

END 

00036640 

2691m 

SUBROUTINE  RPAL(ALOAD.ALIN.CAREA) 

00036650 

2692m 

c 

RIGID  PAVEMENT  ALLOWABLE  LOAD  ROUTINE . 

00036660 

2691m 

c 

COMPUTES  THE  LIMITING  RADIAL  STRAIN. 

00036670 

2696m 

COMMON/ RAD  Ul/STSl  .DSM.FS.SWL 

00036680 

2695m 

DATA  A, B/0 . 58901 .0 . 15686/ 

00036690 

2696m 

CALL  FFRD< 5.DSM, 1 1 

2697* 

CALL  f FRO(5.f AC. 2) 

2698* 

CALL  F FRD< 5 , YRN. 2 ) 

2699* 

CALL  FFRDI5.FS  ,2) 

2  700* 

CALL  FFRD(5.ALOAD,2) 

2  70  1  * 

CALL  FFRD(5.ALIN,2) 

i 
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2702* 

2703* 

2704* 

2705* 

2706* 

2707* 


CALI  FFRD( 5 , CAREA , 2 ) 

CALL  F  F  RD  L  5 , SWL . 2 ) 

RN=20 . *YRN 
C0V=RN/FAC 

STSLsFS/LA+B*ALOG10(COV ) ) 
WRITEL6,2)A,B,YRN,FAC,CDV 


2708* 

2  FORMAT <////60(  1 H  * ) / 

,  20X 

,  *  A 

•  *F10 . 6//, 

2709* 

1 

20X  , 

•  B 

»  F 1 0 . 6//, 

2710* 

2 

?OXr 

'  Y  R  N  =  * 

iFlO.O//, 

2711* 

3 

2 OX  r 

•FAC  =  * 

»  F 1 0 . 4// » 

2712* 

4 

2  OX  » 

•COV  =  ' 

, F10 . 0  » /60< 1H« )////) 

2713*  RETURN 

2714*  END 

2715*  SUBROUTINE  FLEXIES,EA,AL0A0,ALIN,CAREA,XS,AS,BS,YRN,PRAT10> 

27U*  C  FLEXIBLE  PAVEMENT  ROUTINE 

2717*  DIMENSION  AO ( 8 ) . BO ( 8 ) 

2718*  COMMON  VSTR ,STRL . ITER ,STRL2 

2719*  COMMON  /RADI AL/STSL , DSM, FS , SWL 

2720*  DATA  AO/2.32E-03,-9.6347304E-05,2.9507649E-05,-4.25B6473E-06, 

2721*  13.0210971E-07,-1.1453280E-08,2.2311010E-1D,-1.7523733E-12/ 

2722*  DATA  BO/1.54E-01,-1.7032892E-02,2.8018403E-03,-3.5283369E-04, 

2723*  12.5877567E-05,-1.0485427E-06.2.1756275E-08,-1.7990976E-10/ 

2724.  CALL  FFRDL5.ES, 1) 

2725*  CALL  FFRDL5.EA.2) 

2726*  CALL  FFRDC5.YRN.2) 

2727*  CALL  FFRDL5.AL0AD.2) 

2728*  CALL  FFRDL 5. ALIN, 2) 

2729*  CALL  FFRDL 5.CAREA, 2 ) 

2730*  CALL  F F RD L 5 . DSM , 2 ) 

2731*  CALL  FFRDC5.SWL.2) 

2732*  CALL  FFRDL5.PRATI0.2) 

2733*  WRITE(6,11 )YRN 

2734*  11  FORMAT!//, ’PROGRAM  USING  ’ , F 1 0 . 0 , 3X , ' R E PE T I T I ONS . ',//) 

2735*  XS=ES/1000. 

2  736*  AS  =  AOI 1 l+AOl 2  I *XS  + AO L  3)*XS**2+AOL4 )«XS**3  +  A0! 5)*XS**4* 

2737*  1A016>«XS*»5*A017)*XS«»6*A018>*XS»*7 

2  7  38*  BS  =  BOL 1 ) *B0L2 )*XS+BO(  3 >»XS««2*BG<4 >*XS**3+B0L  5 J«XS« *4  +  80(6 ) 

2  739*  1*XS«*5*B017>*XS**6+B018)«XS**7 

2740*  BSNEG=-BS 

2741*  STRL=AS*YRN**BSNEG 

2742*  ACREPS*ALOG10LYRN*20./PRATIO) 

2743*  EA1=EA/14.22 

2744*  EAL0G-AL0G10L EA1 ) 

2745*  STRL2*LACREPS*2.665*EALOG*0.392)/5. 

2746*  5TRL2=-STRL2 

2747*  STRL2s10.**STRL2 

2748*  RETURN 

2749*  END 

2750*  SUBROUTINE  POST L XTE MP , YTEMP , NP0S2 , L A Y , AXX , AYY , DE P , E TAA ) 

2751*  C  ROUTINE  THAT  GENERATES  THE  COMPUTATIONAL  POSITIONS  ONCE  THE 

2752*  C  FINAL  LOAD  OR  THICKNESS  IS  FOUND. 

2753*  REAL  NU.ACCUR! 3) , L0AD.K5 

2754*  C0MM0N/ASDT/LAYER,NLAYS.M,R,2,NU! ID) , AC CUR, L DAD , HOSTRS , NZE ROS , 


00036710 

00036720 

00036730 

00036740 

00036760 

00036770 

00036780 

00036790 

00036800 

00036810 

00036820 

*0036630 

00036840 

00036850 

00036860 

00036870 

00036880 

00036890 

00036900 

00036910 


00036940 

00036960 
00036970 
00036980 
00036990 
00037000 
00037010 
00037020 
♦0037030 
00037040 
00037050 
00037060 
00037070 
00037080 
00037090 
00037100 
00037110 
00037120 
00037130 
00037140 
HI  9 1000371 50 
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2  7  55* 

♦,K5<10),E(10),AL(9>,THICK<9),RAD1US(10> 

00037160 

2756* 

DIMENSION  XTE  MP ( 10 ) » Y  TEMP ( 10 ) » IAYC 100) »  AXX  ( 100) i  A YY( 1001 » 

000371 70 

2  7  5  7  * 

1  DEP( 1 00 ) . ET AA< 1 00 1 

00037180 

2758* 

NIOC  =  NP052 

00037190 

2759* 

NPOS2=NLAYS»2- 1 

00037200 

2760* 

Ml  *2 

00037210 

276  1  * 

M2  =NP0S2 

00037220 

2762* 

K  POS  5  0 

000372  30 

2/63* 

K  =  0 

00037240 

2764* 

WR I TE ( 6  ,  1 3  )  TH I C K 

00037250 

2  765* 

1  3 

FOPMAT ( // • TH I CK  ARRAY  =  ',/9F10.2//) 

00037260 

2  766* 

00  48  I = 1 , Nl OC 

00037270 

2  7  6  7* 

l  A  Y  (  K  ♦  1 )=1 

00037280 

2  768* 

A X  X ( K ♦ 1  )  -  X  T  E  MP (  I  ) 

00037290 

2/69* 

A  Y  Y  (  K  *  1  )  =  Y  r  E  MP (  I  ) 

00037300 

2  7  7C  * 

DEP(K*1)=0. 

000373 1 0 

2771  * 

E  T  A  A ( K ♦ 1  >  =  0  . 

00037320 

2  772* 

KK  -  1 

00037330 

2  77  1* 

T  S  U  M  =  0  . 

00037340 

2  7  74* 

DO  49  J  =M1  , M2  »  2 

00037350 

2  7  7  5  * 

l A Y ( J  )  s ( J-KP05  )/2 

00037360 

2776* 

L  A  Y  (  J  *  1  )=  C  J-KP0S)/2*1 

00037370 

2  7  7  7- 

A X X ( J  )  =XTEMP(  I  ) 

00037380 

2  /  78* 

A  X  X  (  J  +  1  )  =  X  T  E  MP {  I  ) 

00037390 

2  779* 

A  Y  Y  (  J  )  *  Y  T  E  M  P  (  I  ) 

00037600 

2  780* 

AYY ( J ♦ 1 >*YTEMP(  I  ) 

00037610 

2  701* 

WRITE(6,12)KK,THICK(KK> 

00037620 

2782* 

12 

FORMAT <*KK  *  ' . 1 5 . 5 X , ' T H I C X  =  ’,F8.2//) 

00037430 

2  785* 

DEP<J)*THICK<KK)*TSUM 

00057440 

2  786  * 

DE  P ( J  + 1 ) =THICX(KK )*TSUM 

00037450 

2  785* 

ETAA(JI=0. 

00037660 

2  786* 

E  T  AA  t  J ♦ 1  )»0. 

00037470 

2787* 

K  K  *  KK  ♦  1 

00037480 

2788* 

TSUM=DEP( J ) 

000  3  7490 

2789* 

49 

CONTINUE 

00037500 

2790* 

I  F (  I  . EQ.NLOC )GQ  TO  48 

00037510 

2791  * 

K=NPOS2+K 

00037520 

2792* 

M1=M2*2 

00057530 

2  79  3* 

M 2  s  N POS 2 ♦ M 2 

00037540 

2  794* 

KPOSsKPOS*NPOS2 

00037550 

2795* 

68 

CONTINUE 

00037560 

2  796  * 

NP052  =  M2 

00037570 

279  7* 

WR I TE ( 6 , 10  ) 

00037580 

2  798* 

WR1TE(6.11)(IAYCI).AXX(I).AYY1I),DEP(I).ETAA(1),1>1,M2) 

00037590 

2  79  9* 

10 

FORMAT!  'SUBROUTINE  POST - ') 

00037600 

2800* 

1  1 

FORMAT ( ( I 10 ,6F 1 5 . 2/) ) 

00037610 

2801* 

RETURN 

00037620 

2802* 

END 

00037630 

2803* 

SUBROUTINE  NFRD( I  F  C  »  N  V  > ID) 

2804* 

COMMON/JRJ/ICRDT 80 ) •IFHT(!0),1VAI<10).NI 

2805* 

DATA  IB/JH  / , IC /\H,/ 

2806* 

IF( ID.NE . 1 )  GO  TO  10 

2807* 

READ! IFC , 2  >  < ICRD< I ) , I *1 . 80 > 

B-63 


2808* 

2 

F0RMAT(80A1  ) 

2809* 

N  L  =  1 

2810* 

10 

IFINL.GE.80)  NV  =  0 

2811* 

I  F ( NL . GE . 80 )  RETURN 

2812* 

c 

2813* 

c 

FIND  FIRST  NONE  BLANK  CHARACTER 

2814* 

c 

2815* 

DO  3  J  =Nl .80 

28U* 

I F  C ICRDC J  )  .NE . IB)  GO  TO  5 

281  7* 

I  =J 

2818* 

3 

CONTINUE 

2819* 

N  l  =  I  ♦  1 

2820* 

GO  TO  10 

2821* 

5 

NL  *  J 

2822* 

I  F  (  1  CRD ( NL ) .NE. IC)  GO  TO  4 

2823* 

NV  =  0 

78  24* 

NL  =NL ♦ 1 

2825* 

RETURN 

2826* 

4 

DO  6  J  =  N  L ,80 

2827* 

I  F (  I  CRD ( J > .EQ. IB)  GO  TO  7 

2828* 

IF (  I C RD ( J  )  . EO. IC )  GO  TO  7 

2829* 

4 

CONTINUE 

2830* 

J  s8 1 

2831* 

7 

K  =  N  L 

2832* 

H*  J  - 1 

2833* 

ENCODE (AO, 2. IVAL( I) )  ( I  CRD ( I ) . I  * K , M ) 

2834* 

NL  *  J ♦  1 

2835* 

L  =  M  -  K  ♦  1 

2834* 

I  F ( L  .  L  E  .  9  )  ENCODE (AO, 8, !FMT( 1  )  )  L 

2837* 

IF(L.GE.IO)  ENCODEt AO ,9 ,  IFMT ( 1  )  )  L 

2838* 

a 

FORMAU  •  (  I  '  ,  I  1  ,  *  )  »  ) 

2839* 

9 

FORMAT ( *  C I  * • I 2 . *  ) *  ) 

2840* 

DECODE ( L  ,  IFMT .  I V A 1  ( 1) )  NV 

2841* 

RETURN 

2842* 

END 

2843* 

SUBROUTINE  FFRD(IFC.F.ID) 

2844* 

COMMON/ JR J/ I  C  RD ( 50 ) , I FMT ( ] n ) . I VA L ( 1 0 

2845* 

DATA  IB/1H  ✓ » I C / 1 H  » / 

2846* 

IF (  ID  .  NE .  1  )  GO  TO  10 

2847* 

READ(IFC,2>  (ICRD(I),I=l.eO) 

2848* 

2 

FORMAT ( 80 A  1 ) 

2849* 

NL  =  1 

2850* 

10 

IF (NL .GE .80)  F  =  0 . 0 

2851* 

IF(NL.GE.80)  RETURN 

2852* 

c 

2853* 

c 

FIND  FIRST  NONE  BLANK  CHARACTER 

2854* 

c 

2855* 

DO  3  J  *NL  »  80 

2854* 

IF(ICRDCJ).NE.IB)  GO  TO  s 

2857* 

I*J 

2858* 

3 

CONTINUE 

2859* 

N  L  *  I  ♦  I 

2 6$0»  GO  TO  10 


2861*  5  Nl=J 

2862*  IF (  ICRDCNL  )  . NE . IC )  GO  TO  4 

2863*  F  =  0 . 0 

2864*  N L  * Nl ♦  1 

2865*  RETURN 

2866*  4  DO  6  J*Nl»80 

2867*  IFCICRDC J ) .EQ. IB)  GO  TO  7 

2868*  IF(ICRD(J).EQ.IC)  GO  TO  7 

2369*  6  CONTINUE 

22.70*  J  =  3  1 

2871*  7  K  =  NL 

2872*  M*J-1 

287  3*  ENCODE (40 , 2 . IVAL ( 1  )  )  (I  CRD ( I > » I =K . M > 

28  7  *  *  NL  s  J ♦  1 

2875*  L  =  M  - K ♦ i 

2876*  1FCL.IE.9)  E NCOD E ( 4 0 . 8 , I F M T ( 1  )  )  l 

2  8  7  7*  IFCL.GE.10)  E NCOD E ( 4 0 , 9 ,  I F M T (  1  )  )  L 

2878*  8  FORMA  T ( r ( F ' » 1 1 •  '  .0)*) 

2879*  9  FORMAT (  '  (F *  .  I  2  ,  *  .  0 > *  ) 

2880*  DECODE ( l  . IFMT , IVALC 1  )  )  F 

2881*  RETURN 

2882*  END 

2887*  BLOCK  DATA  00037640 

2  _» 4  *  C -  - 000  37650 

2885*  C  IN  THF.  BLOCK  DATA  ARE  STORED  SUBS  E  QU  N  T  II  Y  #  0  0  0  3  76  6  0 

2836*  C  -THE  ABSCISSAE  FOR  THE  L E GE NDR E - G AU SS  00037670 

2887*  C  QUADRATURE , STARTING  IN  A  WITH  THE  2-ND  00037680 

2888*  C  ORDER  AND  ENDING  IN  N  WITH  THE  15-TM  00037690 

2889*  C  ORDER.  00037700 

2890*  C  -THE  ABSCISSAE  FOR  THE  JACOBI-GAUSS  00037710 

2891  *  C  QUADRATURE  OF  T H r  8-TH  ORDER  IN  0.  00037720 

2892*  C  -THE  WEIGHTS  FOR  THE  l E G E NDR E - G AUSS  00037730 

2893*  C  QUADRATURE .STARTING  IN  P  WITH  THE  2-ND  00037740 

2894*  C  ORDER  AND  ENDING  IN  CC  WITH  THE  15-TH  00037750 

2895*  C  ORDER.  00037760 

2896*  C  -THE  WEIGHTS  FOR  THE  JACOBI-GAUSS  QUADRA-  00037770 

289  7*  C  TURE  OF  THE  8-TH  ORDER  IN  DD  .  (J00  3  7780 

2898*  C  -THE  FIRST  149  ZEROS  OF  JO  IN  EE  AND  F F  00 037790 

2899*  C  -THE  FIRST  149  ZEROS  OF  J1  IN  GG  AND  HH  00037800 

2900*  C - 00037810 

2901*  RFAL  I.J.K.L.M.N  00037820 

2902*  DIMENSION  A(2>.B(3),C<4),D(5).EC6>,F(7).G<8>,H<9),I(10>,J(11>,M1200037B30 

2903*  1  )  •  L (  13). M(  14). N(  15). 0(  8). P(2),Q(3),R(4).S(5),T(6>,U(7),V(8).W(9), 00037840 

2904*  2X(10).Y(11),Z(12).AA(13)»BB(14)»CC(15)»DD(  6>,EE(119),FF(30),GG(11000J7850 

2905*  39)  ,HH(  30)  00037860 

2906*  COMMON/GAUSS/AGAUSS( 16 . 1 6 ) , HGAUSSC 16 . 1 6 )  00037870 

2907*  COMMON/GEDATA/BZEROS< 149 , 2 ) .ZEROS( 298 )  00037880 

2908*  EQUIVALENCE  (AGAUSSd.  2).  A  (  1  )  )  ,  (  AGAUSS  (  l  ,  3).  Bd>).  000  37890 

2909*  1  (  AGAUSS  (  1  »  4).  C  (  1)  )  .  (  AG  AUSS  (  I  ,  5).  D  (  1  )  )  ,  <  AG  AUSS  (  1  .  6).  Ed)).  00037900 

2910*  2 ( AGAUSS ( 1 .  7),  F d )), C AGAUSSd ,  8),  G ( 1 >)*( AGAUSS d »  9),  H(l)),  00037910 

2911*  3  (  AGAUSS  (1.10)*  1  d  )).(  AGAUSSd  ,  1  1  )  »  J  (  1  )  )  ,  (  AG  AUSS  (  1  ,  1  2  )  .  Ml)).  00037920 

2912*  4 ( AGAUSS (1.13).  L ( 1  )  )  , ( AGAUSS ( 1  ,1 4  )  ,  M ( 1  )  )  , ( AG AUSS ( 1  ,  1 5  )  ,  NCI)).  00037930 

2913*  5 ( AGAUSS (1.16).  0 (  l  )  )  » ( HGAUSS (  1  ,  2).  P ( 1) ) . ( HGAUSS (  1 .  3).  Q(l)).  000  37940 
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2914* 
29  15* 
2916* 
2917* 
2918* 
2919* 
2920* 
2921* 
2922* 
2923* 
2925* 
2925* 
2926* 
2927* 
2928* 
2929* 
29  }0* 
29  Jl* 
29  32* 
2933* 
29  36* 
2935* 
2936* 
2937* 
2938* 
2939* 
2960* 
2961* 
2962* 
2963* 
2966* 
2965* 
2966* 
2967* 
2968* 
2969* 
2950* 
2951* 
2952* 
2953* 
2956* 
2955* 
2956* 
2957* 
2958* 
2959* 
2960* 
2961* 
2962* 
2963* 
2966* 
2945* 
2966* 


6 ( HGAUSS ( 1 . 
7(HGAUSS( 1 ■ 
8 ( HGAUSS ( 1 . 
9 ( HGAUSS ( 1 . 
T ( HGAUSS ( 1 , 
l(BZEROS(  1  . 

DATA  A.B.C 
N/-. 4672136 
1-0.2852315 
.6688488 
.5917001 
.3631175 
1652790 
. 7844836 
.  7844834 
1365529 
.9533069 
.2492868 
1-0.8678104 
2  0.3427235 
3-0 . 8850636 
4  0.2153538 

5- 0.9695861 

6- 0 .1013263 
7  0.8991728 

DATA  N.O 


2  0. 

3  0. 

4  0. 

5- 0  . 

6- 0. 
7  0. 
8-0  . 
9-0  . 
T  0. 


4  ) 
7) 
10  ) 
13) 
16) 
2  ) 
,  D  * 
.  0 
.  0 
.  0 
.  0 
.  0 
.  0 
.  -0 
,  0 
.  0 
.  -0 
.  0 
.-0 
.  0 
.  -0 
.  0 
.-0 
.  0 
.  0 


.  R<  1  ) ) . ( HGAUSS l 1 ,  5)  . 
.  U( 1  )  ) , (HGAUSS ( 1  .  8) , 
,  X(  1  )  )  . ( HGAUSS ( 1.11). 
AA( 1 ) ) , (HGAUSS! 1,14), 
,DD( 1 ) ) . (BZEROS( 1 ,  1). 

.  GG( 1 ) ) . <BZ£ROS( 120,2  ) 

4472136,-0.6546537,  0 


S( 1  ) ) , (HGAUSS ( 1 ,  6 ) ,  T ( 1  )  )  . 
V< 1 ) ) , ( HGAUSS ( 1  ,  9) ,  U< 1 ) ) , 
V( 1 ) > , ( HGAUSS  t 1 .  12  )  .  2(1)). 
BB( 1 ) ) , ( HGAUSS ( 1 , 15)  ,CC< 1  )  )  , 
EE(1  >)  ,(BZEROS(  120,1)  ,FF(1)  )  , 
,  HH  (  1  )  ) 


2852315,  0 
8302239 , -0 
8717400 , -0 
6771863,  0 
1652789,  0 
5652354 , -0 
9340014.-0 
1365529,  0 
8463538. 
4829106, 
7288621.-0 
5506415.  0 
7635341 , -0 
4206389,  0 
8991729,-0 
1013262,  0 
9695860/ 


7650553.-0 
871 7402,-0 
8997580 , -0 
8997580 , -0 
4779249,  0 
2957582,  0 
9448975,-0 
3995309,  0 
0 . 686 1843, -0 
0.6861842,  Q 
5506417,-0 
7288620,  0 
6062477,-0 
6062477,  Q 
7920153,-0 
2998304,  0 


0000000, 

8  3022  39  ,- 
59  1  7003,- 
677  186  3  ,- 

9  1  9  5  339  ,- 
7387738, 
0000000 , 
81  92815,- 
6328753, 
4829108,- 
8463537. 
3427235  ,- 
8678104, 
4206389, ■ 
7635341 , 
65’?’31 
486u57S, 


6546537,- 

4688488. 

2092993. 

3631175, 

7387739  .- 

91  95338,- 

2957581  , 

6328754  ,- 

8192813, 

2492869. 

9533068,- 

1163319, 

9599298,- 

2153539, 

8850635. 

4860575,- 


0.6523930, 


. 7650554 
.0000000 
.2092991 
. 0000000 
.4779250 
.9340014 
,  5652353 
-0 . 3995310 
0 . 9448975 
0 .0000000 
-0 .9599299 
0.  1  1  63318 
.  9652544 
. 0000000 
. 9652544 
.2998304 
.7920151 


N/- . 9731405 , 

-0.9108602, 

-0.8157166, 

-Q. 6910172, 

-0.5413883, 

1 

-0. 1895120, 

0.0000000, 

0.1895119, 

Q  .  3  72  1  744  , 

0.541 3882  , 

2 

0.8157164, 

0 . 9108602 . 

0 .9731404 , 

-0.9602899, 

-0.7966665, 

3 

-0. 1834346, 

0  .  1834346  , 

0.5255324, 

0.7966665, 

0 . 9602B99/ 

DATA  P,O.R#SrT.U»V,W/X 

,V.2.AA,BB 

N/0. 8333334, 

0.8333331, 

0 . 5444443 , 

0.7111111, 

0 . 5444444 , 

1 

0.5548583, 

0 . 5548531 , 

0 . 3784750 , 

0.2768261, 

0.4317453, 

2 

0.4317455, 

0.2768261 , 

0.2107044, 

0.3411230, 

0.4124591 , 

3 

0.3411230, 

0 .2107046, 

0. 1654953, 

0.2745391  , 

0 . 3464290 , 

<» 

0  .  3464290  , 

0 . 2745388 , 

0. 1654955. 

0.1333061, 

0.2248897, 

5 

0.  3275404, 

0  .  3275403, 

0.2920429, 

0.2248897, 

0 . 1  333061  , 

6 

0. 1871  701 , 

0 . 2480485. 

0.2868792, 

0.3002176, 

0.2868798, 

7 

0 . 1871700 , 

0  .  1  0961  26  . 

0 .0916847, 

0.1579750, 

0.2125089, 

8 

0 .2714060  . 

0.2714060 , 

0.2512759, 

0.2125089, 

0 . 1579748 , 

9 

0.0778019, 

0  .  1  349820 , 

0. 1836473, 

0.2207679, 

0.2440163, 

T 

0 . 2440165, 

0 .2207679  . 

0.1836473, 

0. 1349820, 

0.0778019, 

1 

0.1165870, 

0  .  160022  1  . 

0. 1948268. 

0.2191266, 

0.2316136, 

2 

0 . 2191266  . 

0  .  1948268, 

0. 1600223, 

0.1165869, 

0.0668375, 

3 

0. 1016605. 

0  .  14051  19 , 

0. I 727902, 

0.1969877, 

0 .21 19743, 

U 

0.2119743, 

0  .  1  969876 , 

0 . 1 727903, 

0. 1405120, 

0. 1016601 , 

5 

0.0508505, 

0 . 0893939, 

0  .  1  242559  , 

0.1540275, 

0 . 1774924 , 

6 

0.2019594, 

0.2019594, 

0.1936906, 

0. 1774925, 

0.1540275, 

7 

0.0893940, 

0 .0508506/ 

DATA  CC.DD 
N/0 . 0449221 , 

0 .0791985, 

0  .  1  1059  31  . 

0. 1 379879, 

0.1603954, 

1 

0. 1872171  , 

0.1906618, 

0.  18721  72  , 

0 . 1770049 , 

0 . 1603951 , 

2 

0.1105928, 

0.0791985, 

0 . 044922  1  , 

0 . 1012285. 

0.2223810, 

■0.3721744 
0.6910170 
0 . 5255324 


3784749 
4876190 
4124591 
3715193 
2920431 
1096126 
^480485 
2512758 
0916846 
2519308 
0668373 
2316138 
0.0580301 
0.21 70480 
0.0580301 
0. 1936907 
0. 1242554 


0.1770052 
0. 1379883 
0.3137067 


00037950 
00037960 
00037970 
00037980 
00037990 
00038000 
00038010 
. 00038020 
,00038030 
,00038040 
.00038050 
, 00038060 
, 00038070 
, 0003B080 
,00038090 
, 00038100 
. 000381 10 
,00038120 
,00038130 
.00038140 
,00038150 
,00038160 
,00038170 
,00038180 
00038190 
00038200 
.00038210 
,00038220 
, 00038230 
0003B240 
00038250 
.00038260 
,00038270 
, 00038280 
,00038290 
,00038300 
,00038310 
,00038320 
,00038330 
,00038340 
.00038350 
,  00038360 
.00038370 
, 00038380 
.  00038390 
,00038400 
,00038410 
,00038420 
00038430 
00038440' 
.00038450 
,00038460 
.00038470 
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296  7* 

3  0.3626838,  0.3626838,  0.3137067,  0.2223810,  0.1012285/ 

00038480 

2  9  6  8  * 

DATA  EE 

/2. 404826,  5.520078 

,  3.653728 

,  11.79153, 

14.93092, 

00038490 

2969* 

1  16.07106, 

21.21164, 

24 . 35247  , 

27.49348, 

30.63461, 

33.77582 , 

00038500 

2970* 

2  36.91710, 

40.05843, 

43.19979, 

46.34119, 

49 . 4826  1  , 

52 . 62405 , 

00038510 

29  7  1  - 

3  55. 76551 , 

58.90698, 

62 . 04847 , 

65.18996, 

68.33147, 

71 .47298, 

00038520 

2972* 

4  74.61450, 

77. 75603, 

80 . 89756  , 

84.03909. 

87.18063, 

90.32217, 

00038530 

29  73* 

5  93. 46372. 

96.60527, 

99 .  74682  , 

102 . 8883 , 

106 . 0299 , 

109.1715, 

00038540 

2  9  74* 

6112.3131, 

1 1 5 .4546 , 

1  1  8. 5962  , 

121.7377, 

124.8793, 

1  28 . 0209  , 

00038550 

29  73* 

7  1  31  .  1  624  , 

1  34 . 3040  , 

137.4456, 

140 . 5872 , 

1  4  3.  728  7, 

146 . 870  3  , 

00038560 

^976* 

8150.0119, 

153. 1535, 

156.2950, 

1  59 .4366  , 

1  62. 5782 . 

165.7198, 

00038570 

2  9  7  7* 

9168.8613, 

1  72 . 0029  . 

175. 1445 , 

1  78 . 286  1  , 

1  81  .  4277 , 

184.5692, 

00038580 

29  78* 

T 187 . 7108, 

1  90 . 5524  . 

1  9  3 .  9940  . 

197.1356, 

2  0  Q .2  7  7  ? , 

203.4187, 

00038590 

2  9  7  9* 

1206. 5603, 

209 .7019, 

212.8435, 

215. 9850 , 

2  1  9 .  1  26  7  , 

222 . 2682  , 

00038600 

2  9  8  0* 

2225 . 4098  . 

228. 5514  , 

2  3  1  . 69  30  , 

234.8346, 

2  37 . 9  762  , 

241.1178, 

U00  386  1  0 

2981  * 

3244.2393, 

24  7  400  9  , 

250  .  5425  , 

2  53. 6S41  , 

256.8257, 

259.9673, 

00038620 

2  9  8  2  * 

4263 .  1  089  , 

266 . 2504, 

2  6  9  .  3  9  2  0  , 

272.5336, 

275.6752 , 

278.8168, 

00038630 

298  3  * 

52  8!  . 9584  , 

2  8  5. 1  000  , 

283 . 2416, 

291 . 3831 , 

294 . 5247, 

297.6663, 

00038640 

2  9  o  4  * 

6  300 . 80  79  , 

30  3 . 9495  , 

307 . 0911, 

310.2327, 

313.3743, 

316.5159, 

00038650 

2  9  8  5  * 

7319.6574, 

322 . 7990 . 

325.9406, 

329 . 0822 , 

3  32 . 2  2  35, 

335.3654, 

00038660 

2986* 

8338.5070, 

341 .6486. 

344 . 7902  , 

347.9317, 

351.0733, 

354.2149, 

0003S670 

2  937* 

9357.3565, 

360 . 4981  , 

36  3 . 6  397  , 

366.7813, 

369  .  9229 , 

373.0645/ 

00038680 

2  9  8  8  * 

DATA  (-9-  / 

3  76 .206  1  , 

379 .  3476  . 

382 . 4892  . 

385 . 6308, 

388 . 7724  , 

00038690 

2989* 

1391.9140, 

395.0556, 

398 . 1972, 

401 . 3388, 

404 . 4804 , 

407.6220, 

00038700 

2  9  '•  '2  - 

2  4  1  C  .  7  6  3  5  . 

413.9051, 

4  1  7. 046  7, 

420.1883, 

423.3299, 

426.4715. 

0  0  0  3  S  7  1  0 

2  9  7  1  * 

3429.6131, 

432 .  7547  . 

435.596  3  , 

439.0379, 

442  .  1  794 , 

445. 321  0  , 

00038720 

2992* 

4443-4626  , 

451  .6042  , 

454 . 7458, 

457 . 8874  , 

461  .  0290  , 

464 . 1  706  , 

00033730 

2  9  9  3  *  5  6  7  .  312  2/  000S8740 


2994* 

DATA  GG 

/3. 831706 

.  7.015587 

.  10.17347, 

13.32369, 

16.47063, 

00038750 

* 

299  5* 

1  19.61586, 

22 .  76008  , 

25.90367, 

29  .  0468  3  , 

32  .  18968, 

35.33231, 

00033760 

> 

2996* 

2  38.47477, 

41.61709, 

44 .  75932  , 

47.90146, 

51.04354, 

54.18555, 

00038770 

r 

299  7* 

3  57. 32753, 

60 .46946  , 

63.61136, 

66. 75323, 

69 . 89507  , 

73s  0  3690  , 

00038780 

| 

2  9  98* 

4  76.17870, 

79 .  32049  , 

8  2 . 4  6  2  2  6  , 

85 . 60402 , 

88. 74577, 

9 1 . 88750 , 

00038790 

| 

2  9  9  9* 

5  95 . 02923, 

98. 1 7095, 101.3127, 

104.454' 

107. 5961 , 

110.7376, 

00038800 

3000* 

61 1 3.8794, 

117.0211, 

120 . 1628, 

123.3045, 

126.4461, 

129.5878, 

000  3381  0 

300  1  * 

7132 .7295, 

135.8711. 

139.0128, 

142.1  544 , 

145 . 2961 , 

148.4377, 

00038620 

3002  * 

81  51. 5794  , 

154.7210. 

1  57. 3626  . 

1  6  1.  004  3  , 

164.1459, 

167.2876, 

OC  0  388  30 

300  3* 

9 1 70 . 4292 , 

1  73.5708  , 

176.7125, 

1  79 .8541  , 

182 . 9957  , 

1  86.1  374  . 

00038840 

j 

3004  * 

T  1  3 9 . 2  790  , 

192 . 4206  , 

1  95 . 5622  , 

198.7038, 

201  . 8455  , 

204.9871 , 

00038850 

3005* 

1208. 1287, 

211.2/03, 

214 . 4120  . 

217.5536, 

2  2  0.695  2  , 

223 .8368 , 

000  33360 

j 

3006  * 

2226 . 9784 , 

2  30 .  1  200  , 

233.2616, 

236 . 4033 . 

239  .  5449  , 

242 .6865 , 

00038870 

3007* 

3245 . 8281 , 

248 . 9697, 

2  52  .  1  1  1  3  , 

255 . 2529 . 

258.3945, 

26  1  . 5362  , 

00038880 

! 

3008* 

4264 . 6  778  , 

26  7 . 8  1  94  , 

270.9610, 

274 . 1 026 , 

277. 2442 , 

280 . 3858 , 

00038890 

3009* 

5283. 52  74  , 

286 . 6690 , 

289 .8106, 

292 . 9522  . 

296.0938 , 

299 . 2354  . 

00038900 

30  10* 

6302.3771, 

305.5187, 

308 . 6603, 

31 1 . 80 1 9  , 

314.943^, 

318.0851, 

0003891 0 

30  1  I  * 

7  32  1  . 226  7  . 

324 . 3683 . 

327.5099, 

330 .6515, 

333.7931, 

336.9347, 

00038920 

3012* 

8340.0763, 

343.2179, 

346 . 3595. 

349 . 50  1  1, 

352 . 6427, 

355. 7843 . 

000389  30 

3013* 

9358 . 9259  , 

362.0675, 

365.2091 . 

368 . 3507 , 

371 .4923 , 

374 .6339/ 

00038940 

30  14* 

DATA  HH  / 

377.7755, 

380 .9171, 

384 . 0587 . 

387.2003, 

390 . 3419, 

00038950 

0 

3015* 

1393. 4835, 

396 . 6251 . 

399 . 7667. 

402 . 908  3  , 

406 . 0499  , 

409 .1919, 

00038960 

30  16* 

24 1 2 . 3331 , 

415.4747, 

418.6163, 

421.7579, 

424 . 8995 , 

428 .0411, 

00038970 

3017* 

3431.1827, 

434.3243, 

437.4659, 

440 .6075, 

443.7491, 

446.8907, 

00038960 

30  18* 

4450.0323, 

453.1739, 

456 .3155, 

459.4570, 

462 . 5987  , 

465.7403, 

00038990 

3019* 

5468 . 8819/ 

00039000 

\  * 

3  0  2  0* 

END 

0003901 0 

I 


